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ABSTRACT 


The  purpose  of  this  thesis  is  the  investigation 
of  list  processing  in  an  APL  environment,  with  the  aim 
of  implementing  a  Lisp-like  list  processor  in  APL.  The 
study  endeavours  to  establish  a  background  by  introducing 
the  reader  to  other  Lisp  systems  and  the  Lambda  Calculus, 
the  basis  of  Lisp  1.5.  These  examinations  are  followed 
by  a  description  of  the  LISP/APL  system  itself. 
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1. 


INTRODUCTION 


The  purpose  of  this  thesis  is  to  investigate  the 
suitability  of  APL  for  the  implementation  of  the  list 
processing  language  Lisp  1.5.  The  thesis  is  part  expos¬ 
itory  in  that  an  introduction  to  Lisp  1.5  and  the  lambda 
calculus  is  given,  which  is  followed  by  a  description 
and  evaluation  of  LISP/APL,  the  version  of  Lisp  1.5  that 
has  been  implemented  in  APL. 

Chapter  2  is  devoted  to  a  brief  introduction  to 
Lisp  1.5.  The  main  emphasis  is  not  on  programming  details 
but  on  the  format  of  the  language  and  general  theory 
pertaining  to  the  construction  of  Lisp  1.5  programs.  For 
a  more  detailed  description  of  Lisp  1.5  the  reader  is 
referred  to  the  excellent  treatment  given  in  Weissman 
(1967)  . 

Chapter  3  gives  a  review  of  the  lambda  calculus, 
an  algebraic  language  developed  by  Church  (1941),  which 
is  used  for  modeling  computational  processes.  Lambda 
calculus  is  a  level -or iented  language  and  is  the  basis 
of  the  programming  language  Lisp  1.5.  In  this  chapter  we 
begin  by  defining  the  lambda  expressions  themselves  and 
the  operations  which  may  be  performed  on  these  expres¬ 
sions.  The  discussion  continues  with  the  topics  of 
logical  values,  logical  operations,  list  selectors  and 
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Church's  representation  of  integers,  along  with  the 
operations  associated  with  these  integers.  Lambda 
calculus  gives  insight  into  the  theory  and  practice  of 
binding  procedure  parameters,  which  is  used  in  most  pro¬ 
gramming  languages  to  communicate  between  procedures 
(Wegner  (1970) ) . 

The  implementation  of  LISP/APL  is  described  in 
Chapter  4.  The  various  subsystems  and  control  functions 
are  described  in  order  to  give  an  overview  of  the  system, 
which  is  equivalent,  except  for  some  minor  differences, 
to  the  list  processor  described  by  Weissman  (1967). 

The  programming  language  APL ,  which  is  used  to  implement 
LISP/APL,  is  not  discussed,  although  Appendix  C  discusses 
one  LISP/APL  system  function  to  give  insight  into  the 
use  of  APL  in  the  implementation  of  LISP/APL.  The 
interested  reader  is  reffered  to  Falkoff  and  Iverson 
(1968)  for  a  complete  description  of  the  syntax  and  seman¬ 
tics  of  APL. 

Chapter  5  gives  an  assessment  of  LISP/APL  and 
the  suitability  of  APL  for  its  implementation.  The  re¬ 
mainder  of  the  presentation  consists  of  Appendices  deal¬ 
ing  with  certain  segments  of  LISP/APL. 

Appendix  A  deals  with  a  "  sample  session  "  with 
LISP/APL  and  discusses  a  number  of  system  attributes  and 
system  orientation.  Appendix 


B  contains  the  APL  function 


. 
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listings  for  all  LISP/APL  functions.  Appendix  C  has  been 
previously  discussed  and  deals  with  the  LISP/APL  function 
AON,  a  portion  of  the  system  stacking  operation.  Appen¬ 
dix  D  deals  with  the  revised  LISP/APL  system  based  on  a 
pointer- array  network  for  the  internal  representation  of 
lists.  This  Appendix  contains  all  function  listings  and 
system  documentation  of  the  new  system,  along  with  a  brief 
description  of  the  system. 


2. 


AN  INTRODUCTION  TO  LISP  1.5 


The  purpose  of  this  chapter  is  to  provide  a 
brief  introduction  to  the  Lisp  1.5  programming  lang¬ 
uage.  The  presentation  is  based  on  Weissman  (1967) 
to  which  the  reader  is  referred  for  further  details 
and  additional  references.  The  interested  reader  may- 
wish  to  consult  McCarthy  (1962)  which  provides  one  of 
the  earliest  published  accounts  of  the  language.  Other 
useful  references  are  Woodward  (1966)  and  Abrahams 
(1968) . 

Lisp  1.5  consists  of  structures  called  "  lists  " 
and  functions  which  operate  on  lists.  In  the  following 
section  we  shall  deal  with  lists  and  in  subsequent  sec¬ 
tions  with  functions. 

2.1  Symbolic  Expressions 

The  basic,  non- divis ible ,  element  of  a  list  is 
called  an  "  atom  ",  and  is  either  a  number  or  an  identi¬ 
fier.  An  identifier  consists  of  an  arbitrary  number  of 
letters  and  digits,  the  first  of  which  must  be  a  letter. 
For  example,  A,  ATOM,  VERYLONGATOM ,  A27,  49  and  96.4  are 
atoms.  The  last  two  atoms  are  numbers.  The  character 
"  blank  "  must  not  appear  in  an  atom. 

Two  atoms  may  be  catenated,  and  enclosed  in 
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parentheses,  to  form  a  "  dotted  pair  ".  For  example, 
if  A  and  B  are  atoms,  then  the  expression  (A*B)  is  a 
dotted  pair.  Similarly,  (A*A) ,  (B*B)  and  (B*A)  are 
also  dotted  pairs.  Finally,  an  "  S-expression  "  is 
defined  as  an  atom,  or  a  dotted  pair,  or  a  dotted  pair 
of  S-expressions .  Thus,  the  S-expression 
(  (  (A •  B)  •  C)  •  (  CD •  G)  •  (E • F) )  ) 

is  made  up  of  the  dotted  pairs  of  atoms  (A*B) ,  (D*G) 

and  (E*F)  which,  by  definition,  are  S-expressions. 

Now,  ((A*B)*C)  consists  of  the  dotted  pair  (A*B)  and 
the  atom  C  which  are  both  S-expressions.  Continuing 
in  this  manner,  we  may  build  up  the  final  S-expression 
by  repeated  applications  of  the  rules  given  for  the 
formation  of  S-expressions. 

2.2  Symbolic  Expressions  in  List  Notation 

For  any  but  trivial  expressions  dot  notation 
becomes  quite  complex  and  leaves  much  to  be  desired  for 
a  convenient  programming  notation  for  S-expressions, 
particularly  because  of  an  abundance  of  parentheses 
and  dots.  Therefore,  "  list  notation  "  was  devised 
to  simplify  the  reading  and  writing  of  S-expressions. 

As  an  example  of  list  notation,  the  "  list  " 

(A  B  C)  is  an  S-expression  in  list  notation  for  the 
S-expression  (A* (B • (C *NIL) ) )  written  in  dot  notation. 
NIL  is  a  special  atom  which  will  be  discussed  shortly. 
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A  list  may  contain  sublists,  which  in  turn  may 
contain  sublists,  etc.  It  is  convenient  to  speak  of 
the  "  elements  "  of  a  list.  An  element  may  be  an  atom, 
a  list  of  atoms,  or  a  list  of  lists.  For  example, 
(ABC),  is  a  list  of  three  atoms  A,  B  and  C,  while 
((A)  (B)  (C))  is  a  list  of  the  three  sublists  (A),  (B) 
and  (C) .  The  separator  for  elements  of  lists  for  the 
remainder  of  this  presentation  will  be  the  character 
"  blank  ". 

It  is  obvious  that  some  correspondence  must 
exist  between  list  and  dot  notation  expressions.  While 
it  is  true  that  all  list  notation  expressions  may  be 
restructured  to  dot  notation  expressions,  the  converse 
is  not  true,  since  there  exist  dot  notation  expressions 
that  cannot  be  converted  to  list  notation.  Some  exam¬ 
ples  of  this  type  will  be  discussed  in  a  later  section 
of  this  chapter. 

Before  we  discuss  the  two  rules  which  define  the 
transformations  between  dot  and  list  notations,  we  shall 
discuss  the  atom  NIL  which  has  an  important  role  in 
Lisp.  Since  lists  may  be  of  indefinite  length,  we  must 
have  some  recognizable  list  terminator.  For  example, 
consider  the  list  (A  B) .  If  we  remove  the  first  element, 
we  have  the  remaining  list  (B) .  If  we  remove  the  first 
element  of  this  list,  we  have  the  "  empty  list  "  () . 


■ 
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This  is  the  terminal  point  of  the  original  list  (A  B) . 

The  empty  list  is  the  Lisp  convention  for  the  end  of  a 
list,  and  is  defined  as  the  atom  NIL.  NIL  has  the 
special  significance  of  being  simultaneously  an  atom 
and  a  list.  Lisp  programmers  can  use  either  "  spelling  ", 
()  or  NIL,  as  they  are  identically  represented  internally 
by  Lisp. 

It  is  possible  to  transform  all  list  notation 
expressions  to  their  equivalent  dot  notation  counter¬ 
parts  by  observing  the  following  rule,  (Weissman  (1967)): 

"  The  first  (left-most)  list  element,  when  trans¬ 
forming  to  dot  notation,  is  always  the  left  part 
of  a  dotted  pair.  If  the  first  element  is  also 
the  last  element  of  the  list,  it  is  dotted  with 
the  atom  NIL.  If  the  first  element  is  not  the 
last  element  of  the  list,  then  the  right  part 
of  the  dotted  pair  is  the  list  formed  by  remov¬ 
ing  the  first  element.  Then  apply  this  rule  to 
the  right  part  of  the  dotted  pair." 

The  following  examples  should  help  clarify  this  rule: 

1)  (A  B  C)  +  (A- (B  C)) 

-  (A  •  (B  •  (C) )  ) 

+  (A- (B- (C-NIL)))  . 

2)  (A)  +  (A-NIL) . 

3)  (NIL)  +  (NIL-NIL) . 
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4)  (A  (B  C)  D)  ->  (A*  C  (B  C)  D) ) 

-  (A  •  (  ( B  C)  •  (D)  )  ) 

+  (A • ( (B  C) • (D-NIL))) 

-  (A*  C  (B  *  (C))  •  (D-NIL))) 

+  (A- ( CB • (C-NIL)) • (D-NIL))) . 

As  noted  earlier,  there  are  certain  dotted  pairs 
which  cannot  be  converted  to  list  expressions.  As  we 
shall  see,  one  such  expression  is  (A-B) .  The  rules  for 
conversion  of  dotted  pairs  to  lists  are  as  follows, 
(Weissman  (1967)): 

"  1)  If  the  right  part  of  the  dotted  pair  is  an 
atom  and  not  NIL,  conversion  is  impossible. 
2)  If  the  right  part  of  the  dotted  pair  is 
non-atomic,  i.e.,  a  list  or  dotted  pair, 
or  the  atom  NIL,  treat  NIL  here  as  a  pair 
of  parentheses,  then; 

a)  delete  the  last  right  parenthesis 
of  the  dotted  pair; 

b)  delete  the  dot; 

c)  delete  the  first  left  parenthesis 
of  the  right  part:  the  left  part 
then  becomes  the  first  element  of 
the  list; 

d)  repeat  the  procedure  on  the  remain¬ 
ing  dotted  pairs.  " 
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For  example,  we  may  convert  the  expression  (A«(B»NIL)) 
as  follows : 

(A*  (B-NIL))  ->  (A-  (B-  ())) 

->  (A •  (B) ) 

-  (A  B). 

The  expression  (A*(B*C))  may  be  converted  to  (A  B»C), 
and  no  further,  since  there  is  a  non-null  atom  as  the 
right  part  of  a  dotted  pair.  The  final  representation 
is  in  "  mixed  notation  ",  i.e.,  both  list  and  dot  not¬ 
ation  expressions  are  present  in  the  expression. 

2 .  3  Numbers 

In  Lisp  one  may  use  numbers  as  atoms  in  mixed, 
list  and  dot  notation.  Numbers  in  Lisp  1.5  fall  into 
one  of  three  catagories,  viz.,  octal,  integer  and 
floating-point,  and  will  be  discussed  briefly.  These 
various  modes  are  easily  distinguished  as  the  following 
examples  indicate. 

Octal  numbers  have  no  decimal  point  and  are 
characterized  by  the  suffix  Q,  followed,  if  necessary, 
by  a  positive  integer  exponent,  as  the  following 
examples  indicate: 

127Q  E  1  27  x  8 0  =  8  7 

8  1  0 

41Q2  E  41  x 8 2  =  2112 

8  1  o 

-71Q  E  -  71  x 8 0  =  -  57  . 

8  1  0 


- 
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We  note  that  octal  numbers  have  not  been  implemented 
in  LISP/APL. 


Integer  numbers  are  characterized  by  the  lack 
of  a  decimal  point  and  the  suffix  Q,  but  may  have  an 
integer  scaling  factor,  e.g., 


and 


127  =  127 

1  o 


-11E3  =  -  11  x 1 0  3  =  -  11000 


10  10 

Decimal,  or  floating-point,  numbers  are 
tinguished  by  the  inclusion  of  a  single  decimal 
with  a  possible  integer  scaling  factor,  e.g., 


dis  - 
point , 


3.1459  =  3.1459 

1  o 

and 

-7.9E3  =  -  7.9  x 1 0  3  =  -  7900  . 

10  10 


2.4  Elementary  Functions 

The  major  purpose  of  Lisp  1.5  is  the  manipula¬ 
tion  of  lists.  To  this  end  we  introduce  the  list  func¬ 
tions  HD  and  TL  for  finding  the  ”  head  "  and  "  tail  ”, 
respectively,  of  a  list,  and  the  function  CONS  for  con¬ 
structing  a  list  from  two  given  lists. 

The  function  HD,  denoted  as  CAR  by  some  authors 
is  used  to  remove  the  first,  or  head,  element  of  a  list 
The  following  definition  is  due  to  Weissman  (1967)  : 

”  The  head  of  a  non-atomic  S-expression  is  the 
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left  part  of  the  S-expression  when  represented 
in  dot  notation,  or  the  first  element  of  the 
S-expression  when  represented  in  list  notation. 
The  head  of  an  atom  is  undefined.  " 

Some  examples  of  the  use  of  the  HD  function  are  the  fol¬ 
lowing  : 

1)  HD[(A*B)]  =  A 

2)  HD [ (A  B) ]  =  A 

3)  HD [HD [CCA  B)  C)]]  =  A 

4)  HD[HD[HD[(((A)))]]]  =  A 

5)  HD [ATOM]  undefined. 

The  function  TL,  denoted  CDR  by  some  authors,  is 
used  to  obtain  what  remains  of  a  list  once  the  head  has 
been  removed.  The  following  definition  is  from  Weissman 
(1967)  : 

"  The  TL  of  a  non-atomic  S-expression  is  the  right 
part  of  the  S-expression  when  represented  in  dot 
notation,  or  the  remainder  of  the  S-expression 
after  the  first  element  is  removed  when  repre¬ 
sented  in  list  notation.  The  TL  of  an  atom  is 
undefined.  " 

Some  examples  of  the  use  of  the  TL  function  are  the  follow¬ 
ing: 

1)  TL [ (A • B) ]  =  B 

2)  TL[(A  B)]  =  (B) 
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3) 

TL [ (A) ]  = 

:  Q  =  NIL 

4) 

TL [TL  [  (A 

(B))]]  =  NIL 

5) 

HD [TL [ (A 

(B))]]  =  (B) 

6) 

TL [ATOM] 

undef ined . 

The  function  CONS  is  used  to  construct  a 
list  from  two  given  lists  and  may  be  defined  as  follows 
(Weissman  (1967)): 

"  The  construct  (CONS)  of  two  S- express  ions  is 
the  dotted  pair  of  these  S- express  ions ,  with 
the  first  S-expression  being  the  left  part, 
and  the  second  S-expression  being  the  right 
part  of  the  dotted  pair.  " 

Some  examples  of  the  use  of  the  CONS  function  are  the 
following : 


1) 

CONS [A 

B]  =  (A-B) 

2) 

CONS [A 

(B)]  =  (A* (B) )  = 

(A  B) 

3) 

CONS [A 

NIL]  =  (A*NIL)  = 

(A). 

The  following  identities  should  help  the  reader 
to  understand  the  relationship  between  the  functions  HD, 

TL  and  CONS: 

1)  CONS [HD [X]  TL [X] ]  =  X 

whenever  X  is  a  non-atomic  expression, 

2)  HD [CONS [X  Y] ]  =  X 

3)  TL [CONS [X  Y]]  =  Y. 

Identities  2)  and  3)  are  true  for  all  expressions  X  and  Y. 
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Examples:  1)  CONS [HD [ (A) ]  TL [ (A) ] ]  =  CONS [A  NIL]  =  (A) 

2)  HD [CONS  [A  B] ]  =  HD [ (A  *B) ]  =  A 

3)  TL [CONS [A  B]]  =  TL [  (A  *B) ]  =  B. 

2.5  Graphical  Representation  of  Lists 

We  shall  now  introduce  the  method  of  storing  lists 
in  the  Lisp  1.5  language.  This  will  enable  the  reader  to 
intuitively  recognize  the  relationships  which  hold  between 
HD,  TL  and  CONS.  All  non-atomic  S-expressions  are  intern¬ 
ally  represented  as  binary  tree  structures,  i.e.,  a  tree 
structure  with  two  branches  at  each  node.  The  following 
graphical  symbols  and  their  associated  meanings  are  ass¬ 
umed  in  the  accompanying  tree  diagrams. 

Symbol  Meaning 

I  ~  A  graphical  node  with  a  left  and  right 

storage  location, 

• - *»►  a  pointer,  i.e.,  an  internal  machine 

address  to  the  next  element  of  the 
graph , 

"  atom  names  "  the  unique  machine  address  to  which  the 

atom  named  is  assigned  and  represented 
in  the  graphical  structure  as  the  atom 
name  itself. 

The  following  examples  will  illustrate  the  graphical  re¬ 
presentation  of  lists: 
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1)  The  graph  of  the  dotted  pair  (A  B)  is  given 

by  1  A  1  B  1  > 

where  the  left  part,  A,  of  the  dotted  pair  is  named  in  the 
left  branch  of  the  node,  and  the  right  part,  B,  of  the 
dotted  pair  is  named  in  the  right  branch  of  the  node. 

2)  (A-  (B*  (C-NIL)))  E  (A  B  C) 

~~A 


(We  note  that  the  atom  NIL  is  represented  by  a  diagonal 
slash . ) 


3)  (((A -NIL)  •  (B-NIL))  •  ((ONIL)  •  (D-NIL))) 


=  (((A)  B)  (C)  D) 


Consider  the  list  ((A))  whose  structure  is 


(1) 

(2) 


The  substructure  (2)  which  is  addressed  by  the  left  branch 
of  the  parent  cell  (1)  is  equivalent  to  the  head  of  the 
expression,  i.e.,  (A),  while  the  substructure,  which  is 

represented  by  the  right  branch  of  the  parent  cell,  is 
equivalent  to  the  tail  of  the  expression,  i.e.,  NIL. 
Therefore  the  left-hand  substructure  of  any  cell  is,  by 
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definition,  the  head  of  that  S-expression  which  originates 
at  that  cell.  Similarly,  the  right-hand  substructure 
depicts  the  tail  of  the  parent  structure. 

Consider  the  two  structures, 


If  we  take  the  construct  of  these  two  structures  we  obtain 
the  new  tree: 


This  method  of  graphically  representing  the  CONS  of  two 
elements  anticipates  the  unstated  assumption  that  when¬ 
ever  a  construction  takes  place,  a  new  storage  cell  is 
incorporated . 

2.6  Lambda  Notation 

A  complete  discussion  of  Lambda  notation  and 
Lambda  calculus  is  given  in  Chapter  3,  and  so  only  an 
overview  of  Lambda  notation  will  be  given  here. 

Lambda  expressions  are  special  forms  quite 
similar  to  CONS,  HD  and  TL  in  that  they  operate  on  given 
arguments  to  do  a  specific  task.  Unlike  the  list 
functions,  lambda  expressions  may  be  tailored  to  accomp¬ 
lish  specific  problems  for  the  user.  They  may  be  con¬ 
sidered  to  be  equivalent  to  Fortran  subroutines  in  that 


, 
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the  user  himself  designs  the  procedure  to  carry  out 
specific  actions. 

A  "  lambda  expression  "  is  a  list  composed  of 
three  elements  in  the  following  order: 

1)  The  word  LAMBDA; 

2)  a  list  of  literal  atoms  that  may  be  used 
as  variables  in  the  body.  These  atoms  are 
called  "  lambda  variables  ",  and 

3)  the  body. 

The  general  syntax  accepted  by  Lisp  is 

(LAMBDA  varlist  body), 

where  "  varlist  "  is  the  list  of  literal  atoms  used  as 
variables,  (varlist  may  be  empty,  i.e.,  NIL),  and  "  body  " 
is  any  Lisp  form.  For  example,  in  the  lambda  expression 

(LAMBDA  (J  K)  (CONS  J  K) ) , 

(J  K)  is  the  varlist  made  up  of  two  variables,  and 
(CONS  J  K)  is  the  body. 

A  lambda  expression  acts  like  a  function  since 
it  specifies  the  correspondence  between  the  variables 
in  the  body  and  the  arguments  of  the  function.  The  result 
of  a  lambda  expression  is  the  evaluated  result  of  the 
body,  whatever  that  result  may  be,  as  the  following 
examples  indicate: 

1)  (LAMBDA  ()  1)  =  1 

This  lambda  expression  has  no  parameters 
and  returns  the  numeric  constant  1  since 


' 
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that  is  the  value  of  the  body, 

2)  (LAMBDA  (X)  1)  =  1 

This  lambda  expression,  like  the  previous 
example,  has  as  its  result  the  numeric 
constant  1.  Unlike  the  previous  example, 
this  expression  does  have  a  varlist,  but 
the  varlist  has  no  use  in  the  body  and 
therefore  does  not  affect  the  result. 

3)  (LAMBDA  (X)  X)  =  X 

This  lambda  expression  will  return  the  value 
of  its  associated  parameter. 

A  lambda  expression  is  the  definition  of  a  function 
which  the  user  wishes  to  perform  on  a  specific  set  of 
arguments.  Therefore,  a  facility  must  be  created  to  allow 
the  binding  of  arguments  to  their  respective  lambda 
variables.  The  parameter  list  of  a  lambda  expression  takes 
the  form  of  a  list,  the  number  of  elements  being  the  number 
of  lambda  variables,  i.e.,  if  there  are  five  lambda  variables 
in  the  lambda  expression,  then  there  should  be  five  elements, 
either  atoms  or  sub-lists,  in  the  parameter  list.  For 
example,  in  the  expression: 

(LAMBDA  (X  Y)  (CONS  X  Y))  ( (A  B)  (C)), 

the  binding  of  variables  results  in  the  following: 

The  "  value  "  of  X  is  the  list  (A  B) ,  the  "  value  " 
of  Y  is  the  list  (C) ;  and  the  evaluated  result  of  this 
lambda  expression  is  the  list  ((A  B)  C) . 


-18- 


The  pairing,  or  binding,  process  of  lambda  var¬ 
iables  to  their  respective  parameters  takes  place  in  a 
lef t- to-right  order.  After  the  binding  process  has  been 
completed,  the  body  is  evaluated  and  the  result  computed. 

2 . 7  Forms 

Computation  in  Lisp  1.5  is  accomplished  by  eval¬ 
uating  forms.  All  forms  have  value,  whether  they  are 
numerical  constants,  variables,  or  S-expressions .  The 
value  of  a  form  is  the  result  of  its  evaluation;  a  form 
is  evaluated  only  once.  There  are  three  types  of  forms, 
viz.,  elementary  forms,  composed  forms  and  special  forms. 
The  evaluation  of  each  of  these  will  be  discussed  briefly. 

Elementary  forms  may  be  subdivided  into  three 
groups,  variables,  constants  and  simple  forms.  Each 
group  is  self-explanatory  and  will  only  be  given  slight 
mention . 

The  evaluation  of  a  variable  consists  of  "  retriev¬ 
ing  "  the  variable’s  associated  binding.  When  a  lambda 
expression  is  evaluated,  the  parameters  accompanying 
the  expression  are  bound  to  the  lambda  variables.  The 
body  is  then  evaluated  by  retrieving  the  needed  bindings 
of  the  body  and  applying  whatever  functions  are  present 
to  these  bindings. 

The  evaluation  of  a  constant  is  simple  indeed. 

The  value  of  a  numeric  constant  is  the  constant  itself. 
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Simple  forms  in  Lisp  consist  of  a  left  parenthesis, 
a  function  name,  parameters  and  a  right  parenthesis.  The 
syntax  of  a  simple  form  is 

(fname  parameters) , 

where  "  fname  "  is  the  name  of  some  function,  and  "  param¬ 
eters  "  are  the  variables  or  constants  to  be  used  in  this 
application.  For  example,  (CONS  A  B)  is  a  simple  form, 
where  CONS  is  a  function  name  and  A  and  B  are  variable 
bindings  which  are  to  be  constructed. 

The  evaluation  of  a  simple  form  takes  place  in  the 
following  manner: 

1)  All  parameters  are  evaluated, 

2)  the  function  is  called  with  the  values  of 
the  parameters  as  arguments,  and 

3)  the  value  of  the  simple  form  is  the  value 
of  the  function  applied  to  the  arguments. 

The  composed  form  is  a  generalized  simple  form 
in  which  the  arguments  may  themselves  be  simple  (or  com¬ 
posed)  forms.  The  evaluation  of  composed  forms  takes 
place  in  the  same  manner  as  simple  forms  but  care  must 
be  taken  when  evaluating  the  parameters.  When  a  param¬ 
eter  is  evaluated,  and  found  to  be  a  simple  or  composed 
form,  this  parameter  must  be  fully  evaluated  before  we 
may  proceed  with  evaluation  of  the  expression.  This 
entails  evaluating  the  parameters  (a  form)  in  the  same 
manner  as  the  original  form,  i.e.,  evaluate  the  parameters 
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and  apply  these  parameters  to  the  function  as  arguments. 
The  value  of  this  form  then  becomes  a  parameter  to  the 
original  form.  In  this  manner  we  are  able  to  evaluate 
forms  of  any  complexity,  as  the  following  example 
indicates : 

((LAMBDA  (J)  (CONS  (HD  J)  (HD  (TL  J))))  (A  B) )  . 
By  lambda  conversion  J  is  bound  to  the  list  (A  B) ,  and 
the  composed  form 

(CONS  (HD  J)  (HD  (TL  J))) 

is  evaluated.  This  form  has  two  arguments;  (HD  J) ,  a 
simple  form,  and  (HD  (TL  J)),  a  composed  form.  Each 
argument  must  be  evaluated  before  a  result  for  the  lambda 
expression  may  be  found.  The  first  argument,  (HD  J)  is 
a  simple  form  with  the  result  being  the  atom  A.  The 
second  argument  is  a  composed  form,  and  so,  must  have 
its  argument  evaluated.  The  parameter  of  this  form  is  the 
simple  form  (TL  J)  whose  result  is  the  list  (B) .  The 
result  of  the  form  (HD  (TL  J))  is  now  equivalent  to  the 
form  HD[(B)],  with  the  result  being  the  atom  B.  The 
original  composed  form, 

(CONS  (HD  J)  (HD  (TL  J)))  , 
is  now  equivalent  to  the  form 

CONS [A  B]  =  (A-B) , 

which  is  the  result  of  the  original  lambda  expression. 

As  one  would  expect,  the  special  form  is  slightly 


. 
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different  from  either  the  simple  form  or  the  composed 
form.  The  difference  lies  in  the  handling  of  the  param¬ 
eters,  i.e.,  an  indefinite  number  of  arguments,  or  argu¬ 
ments  which  require  special  treatment. 

LIST  is  a  special  form  which  has  an  indefinite 
number  of  arguments.  These  arguments  may  be  of  any  form, 
i.e.,  simple,  composed  or  special.  The  arguments  are 
evaluated  and  the  result  is  a  list  of  the  values  of  these 
arguments.  The  following  identities  will  define  the 
special  form  LIST: 

[LIST)  =  NIL, 

(LIST  X)  =  (CONS  X  NIL) , 

(LIST  X  Y)  =  (CONS  X  (CONS  Y  NIL)), 

(LIST  X  Y  ...  Z)  =  (CONS  X  (CONS  ...  (CONS  Z  NIL)  ...  )). 
The  following  are  some  simple  examples  of  the  use  of 
LIST: 

(LIST  1  2)  =  (1  2)  , 

(LIST  T  (LIST  NIL  (LIST  35)))  =  (T  (NIL  (35))). 

QUOTE  is  a  special  form  receiving  a  single  argu¬ 
ment,  which  may  be  any  S-expression .  The  result  of  QUOTE 
is  the  unevaluated  argument.  The  syntax  of  QUOTE  is 

(QUOTE  e) , 

where  "  e  "  may  be  any  S-expression.  Consider  the  follow¬ 
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1)  ((LAMBDA  (X)  (HD  X))  (A  B  C))  =  A, 

2)  ((LAMBDA  (X)  (QUOTE  X))  (A  B  C))  =  X. 

In  both  examples  the  lambda  variable  is  bound  to  the  list 
(A  B  C)  by  lambda  conversion,  but  the  result  of  the  second 
example  shows  that  QUOTE  does  not  evaluate  the  argument 
which  is  passed  to  it. 

Consider  the  following  S- express  ion : 

(CONS  (QUOTE  CONS)  (QUOTE  (T  NIL)))  (1) 

When  evaluated,  the  form  yields  the  value 

(CONS  T  NIL)  (2) 

which  itself  is  a  legal  form.  If  we  were  to  evaluate  (2), 
the  result  would  be  the  list  (T) .  But  form  (2)  is  the 
value  of  (1)  and  therefore  we  cannot  arrive  at  the  value 
(T)  from  form  (2):  We  cannot  do  this  because  form  (2)  is 
data  and  Lisp  evaluates  a  form  only  once.  A  special  form, 
EVAL ,  is  incorporated  in  Lisp  for  just  this  type  of 
problem.  EVAL  is  a  form  of  one  argument,  which  must  be 
a  form,  which  "  re-engages  "  the  Lisp  system  to  evaluate 
the  given  argument.  The  syntax  of  EVAL  is 

(EVAL  e) . 

For  example,  (EVAL  (CONS  (QUOTE  CONS)  (QUOTE  (T  NIL)))), 
has  the  structure  (EVAL  e)  where  "  e  "  has  the  form 
of  (1).  As  before  the  value  of  "  e  "  is  (2),  and  it  is 
this  value  upon  which  EVAL  operates,  returning  as  the 
result  of  EVAL,  the  list  (T) . 


' 
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2 . 8  Define 

As  we  have  noted,  lambda  expressions  are  equiv¬ 
alent  to  subroutines  in  other  programming  languages. 
However,  up  to  this  point  we  have  produced  no  means  of 
referencing  these  routines  other  than  when  they  are 
initially  generated.  The  user  may  need  a  lambda  expres¬ 
sion  in  many  parts  of  his  program  which  is  specifically 
designed  to  do  a  common  task.  The  prospect  of  redefin¬ 
ing  a  lambda  expression  on  all  occasions  when  it  is  needed 
is  not  a  desirable  one. 

The  pseudo-function  DEFINE  is  introduced  to 
simplify  this  problem.  The  Define  statement  allows  the 
user  to  define  lambda  expressions  for  multiple  use  in 
much  the  same  manner  as  subroutines  are  defined  in 
Fortran . 

The  syntax  for  the  define  statement  is 
(DEFINE  e) , 

where  the  argument  "  e  "  is  a  list  of  functions  to  be 
defined.  The  format  of  e  is 

(f  f  ...  f  ), 

i  2  n 

where  the  f.  are  the  definitions  of  functions  we  wish 

l 

to  define.  The  format  for  all  functions  is 

(name  (LAMBDA  varlist  body)), 
where  "  name  "  is  the  symbolic  name  with  which  the  user 
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wishes  to  identify  the  lambda  expression.  In  this  manner 
the  user  may  invoke  a  lambda  expression  by  the  use  of  a 
simple  form,  i.e.,  (name  parameters). 

2.9  Conditional  Expressions 

Lisp  has  in  its  repertoire  two  conditional  expres¬ 
sions,  COND  and  SELECT,  which  enable  the  user  to  choose 
the  form  most  suitable  to  his  needs.  We  shall  discuss 
each  of  these  expressions  briefly. 

The  "  conditional  expression  ”  COND  is  a  special 
form  in  Lisp  and  has  the  following  syntax: 


(COND  (p  e  ) 

(p 

e  ) 

(P 

e  )), 

i  i 

2 

2 

n 

n 

where 

the  p.  are  forms 

r  l 

that 

evaluat 

e  to 

NIL  or  non-NIL 

values 

,  and  the  e^  may 

take 

any  des 

ired 

form.  COND 

accepts  all  arguments  unevaluated,  and  as  a  special  form, 
evaluates  these  arguments  in  a  lef t- to-right  order  in 
the  following  fashion,  (Weissman  (1967)): 

"  If  the  value  of  p  is  not  NIL,  then  the  value 
of  COND  is  e  ;  else, 

if  the  value  of  p^  is  not  NIL,  then  the  value 

of  COND  is  e  :  else, 

2 

if  the  value  of  p  is  not  NIL,  etc.  " 

3 

The  entire  expression  is  searched  by  evaluating  the  p^ 

of  each  clause,  until  the  first  non-NIL  p.  is  found.  The 

i 

value  of  this  COND  is  then  determined  to  be  the  eval¬ 
uated  result  of  the  corresponding  e^.  The  e^  correspond- 


' 
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ing  to  p ^  which  are  NIL  remain  unevaluated.  If  a  non- 

NIL  p.  cannot  be  found,  i.e.,  all  p.  are  NIL,  then  the 
1  1 

value  of  COND  is  undefined. 

As  an  example,  the  propositional  connective 
"  implies  "  has  the  following  truth  table: 


X 

Y 

X  ->  Y 

True 

True 

True 

True 

False 

False 

False 

True 

True 

False 

False 

True 

If  we  let  T  and  NIL  represent  True  and  False,  respectively, 
we  can  define  IMPLIES  in  the  following  way: 

(DEFINE  ((IMPLIES  (LAMBDA  (X  Y)  (COND  (X  Y)  (T  T)  ))))). 
For  example,  (IMPLIES  T  NIL)  =  NIL. 

The  special  form  SELECT  is  more  general  than  COND 
in  that  SELECT  allows  for  the  selection  of  values  other 
than  by  comparison  to  "  T  ",  i.e.,  SELECT  compares  two 
given  values  for  equality,  while  COND  tests  for  a  true 
value  only.  The  syntax  for  SELECT  is 

(SELECT  p  (p  e  )  (p  e  )  . . .  (p  e  )  e)  , 

where  the  p^  are  evaluated  in  sequence  from  left-to- 
right  until  one  is  found  equal  to  the  evaluated  value  of 
p.  The  value  of  SELECT  is  then  the  evaluated  result  of 
the  corresponding  e^.  If  no  such  p^  is  found,  the  value 
of  SELECT  is  the  evaluated  result  of  e. 


V- 
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2.10  Predicate  Functions 

To  perforin  computations  with  conditional  expres¬ 
sions  the  user  needs  certain  functions  with  which  he  may 
test  data  to  see  if  certain  requirements  are  fulfilled, 
i.e.,  is  the  parameter  an  empty  list,  a  number,  an  atom, 
a  member  of  another  list,  etc?  With  these  points  in 
mind  we  shall  consider  the  various  "  predicate  functions  " 
available  in  Lisp.  A  predicate  function  is  one  which 
returns  either  a  true  (T)  or  false  (NIL)  result,  depend¬ 
ing  on  the  type  of  predicate  used  and  the  nature  of  the 
argument  being  tested. 

The  predicate  ATOM  has  one  argument,  which  is 
tested  to  determine  whether  or  not  it  is  an  atom.  The 
value  of  ATOM  is  T  if  the  value  of  the  argument  is  atomic, 
and  NIL  otherwise. 

For  example, 

(ATOM  T)  =  T, 

(ATOM  46)  =  T, 

(ATOM  (A  B))  =  NIL, 

(ATOM  (HD  (QUOTE  (A))))  =  T. 

The  predicate  EQUAL  has  two  arguments  and  takes 
the  form, 

(EQUAL  A  B) . 

A  test  for  equivalence  is  made  and  the  result  is  T  if 
the  arguments  are  identical,  and  NIL  otherwise. 


For 
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example  , 

(EQUAL  T  (ABC))  =  NIL 
(EQUAL  (A  B  C)  (QUOTE  (ABC)))  =  T 
The  number  of  arithmetic  and  list  predicates 
makes  it  undesirable  to  discuss  them  all.  In  most  cases 
the  results  are  restricted  to  T  or  NIL  depending  on  the 
outcome  of  the  test.  Also  most  predicates  are  self- 
explanatory  and  need  little  or  no  explanation. 

2.11  Arithmetic  Functions 

As  with  predicate  functions,  it  is  unnecessary  to 

go  into  detail  with  the  arithmetic  functions.  Only  one 

example  of  an  arithmetic  function  will  be  discussed  since 

all  are  quite  similar  as  well  as  intuitively  obvious.  The 

form  TIMES  with  the  syntax 

(TIMES  x  x  . . .  x  ) 

1  2  n 

is  a  multi - argument  function  which  returns  the  value  of 
the  product  of  all  arguments. 

2.12  Program  Feature 

The  program  feature,  the  special  form  PROG,  enables 
the  user  to  write  iterative  programs  by  allowing  looping 
and  temporary  variables.  As  with  all  forms,  PROG  is  an 
S- express  ion ,  and  has  the  syntax 

(PROG  varlist  statements). 

The  varlist  contains  the  variables  which  are  required  for 


-28- 


computation  by  the  statements.  Unlike  lambda  variables, 
program  variables  are  not  bound  to  parameters,  but  are 
initiated  to  NIL  values,  and  are  left  unchanged  until 
such  time  that  the  user  requires  a  variable  to  be  set 
to  a  new  value. 

Two  functions,  SET  and  SETQ,  are  used  to  set 
these  variables.  Both  functions  are  simple  forms  of  two 
arguments  and  are  of  the  form 

(function  A  B) . 

The  second  argument  is  to  be  the  value  bound  to  the  first. 
When  using  either  SET  or  SETQ  the  first  argument  must 
evaluate  to  a  literal  atom.  For  example, 

(SET  (QUOTE  A)  46  ) . 

In  this  example  the  literal  atom  A  is  given  the  value  46. 
SETQ  is  different  from  SET  in  that  we  need  not  "  QUOTE  " 
the  first  argument;  SETQ  does  this  for  us.  In  this 
manner  the  forms 

(SETQ  A  46) 

and 

(SET  (QUOTE  A)  46) 

both  accomplish  the  same  goal,  i.e.,  that  of  binding  the 
numeric  constant  46  to  the  atom  A. 

Since  we  are  allowed  an  indefinite  number  of 
statements  in  a  PROG  expression,  we  must  have  some  control 
over  program  flow.  In  this  area  Lisp  is  very  similar  to 
other  programming  languages.  Lisp  allows  the  user  to 
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identify  statements  with  symbolic  names  with  which  he 
may  transfer  control  and  enable  that  statement  to  be 
executed.  In  Lisp  a  literal  atom  is  the  most  natural 
expression  to  be  used  as  a  statement  label,  e.g., 

(SETQ  PI  3.14) 

TAG  (SETQ  R  N) 

(SETQ  AREA  (TIMES  2  PI  R  R)) 

In  this  case  the  statement  (SETQ  R  N)  has  the  "  name  " 
TAG.  If  control  is  passed  to  this  "  name  ",  the  next 
statement  executed  would  be  (SETQ  R  N) . 

The  GO  statement,  which  is  used  to  transfer 
control  in  Lisp,  has  the  form 

(GO  A), 

where  A  is  the  label  given  to  a  PROG  statement.  The 
argument  of  the  GO  instruction  is  not  evaluated  and  so 
must  be  a  literal  atom. 

When  the  PROG  expression  reaches  a  point  where 
further  computation  is  unnecessary  the  programmer  may 
introduce  a  RETURN  statement  which  allows  program  con¬ 
trol  to  return  to  the  form  which  initially  invoiced  the 
program  feature.  The  format  of  RETURN  is 

(RETURN  e) , 

where  "  e  "  is  the  evaluated  argument  which  becomes  the 
result  of  the  PROG. 

A  note  of  caution  should  be  introduced  here. 

A  GO  instruction  may  only  transfer  control  to  a  state- 
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ment  which  resides  in  the  same  PROG  in  which  the  GO 
instruction  originates.  PROG's  are  usually  found  to  be 
useful  when  incorporated  as  the  "  body  "  of  a  lambda 
express  ion ,  i . e . , 

((LAMBDA  varlist  (PROG  varlist  statements))  parameters). 

2.13  Input/Output 

There  are  two  general  input/output  routines  in 
Lisp,  one  for  each  operation.  READ  is  a  pseudo- function 
of  no  arguments  whose  utilization  causes  the  next  S-expres- 
sion  to  be  read  from  the  input  device.  The  value  returned 
is  a  pointer,  machine  address,  to  the  expression  so  that 
it  may  be  accessed  by  a  SET  or  SETQ  instruction.  The 
format  for  READ  is 

(READ) . 

PRINT  is  a  pseudo- function  of  one  argument,  an  S-expres- 
sion.  Its  evaluation  causes  the  S-expression  to  be  printed 
onto  the  output  device.  The  format  of  PRINT  is 

(PRINT  s) . 

2.14  Conclusion 

Though  brief,  it  is  hoped  that  the  reader  has 
gained  insight  to  the  Lisp  1.5  programming  language.  It 
must  be  understood  that  this  presentation  is  only  an  intro¬ 
duction  to  Lisp  1.5  and  further  details  are  available  in 


Weissman  (1967) . 


3. 


LAMBDA  NOTATION  AND  LAMBDA  CALCULUS 


As  in  other  programming  languages  there  is  a 
need  for  allowing  the  user  to  construct  and  define  proce 
dure-like  subprograms  in  Lisp.  These  procedures  are  to 
be  self-contained  programs  which  are  called  upon  to 
perform  specific  tasks.  The  lambda  expression  serves 
this  purpose  in  Lisp. 

The  lambda  form,  introduced  in  the  preceding 
chapter,  was  first  defined  by  Church  (1941).  The  remain 
der  of  this  chapter  will  deal  with  Church's  development 
and  presentation  of  lambda  notation  and  the  associated 
operations  of  lambda  calculus. 

3.1  Forms  and  Functions 

1 

Suppose  we  are  given  the  expression  (XY)  into 
which  we  are  to  substitute  certain  parameters.  Unless 
we  are  told  in  what  manner  substitution  is  to  take  place 
evaluation  will  be  impossible.  To  overcome  this  problem 
a  notation  is  needed  which  states  explicitly  the  corre¬ 
spondence  between  the  actual  and  formal  parameters. 

Lambda  notation,  a  "  pure  "  function  evaluation 
language,  is  used  by  Lisp  to  overcome  these  difficulties 
Originally  in  Church's  representation,  there  were  no 
facilities  for  evaluating  a  lambda  expression.  Eval- 
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uation  here  implies  the  implementation  of  primitive  oper¬ 
ations  for  which  evaluation  is  possible,  i.e.,  arith¬ 
metic  or  list  selection  functions,  conditional  expres¬ 
sions,  etc.  Lambda  notation  is  evaluated,  or  more 
correctly  reduced,  by  the  operations  of  lambda  calculus, 
whose  attributes  will  be  discussed  shortly.  The  addition 
of  primitive  operators  to  lambda  notation  allows  Lisp  to 
evaluate  all  well-formed  lambda  expressions. 

The  vocabulary  of  lambda  notation  consists  of 
three  basic  symbols,  A,  (,  and  ),  and  a  set  V  of  variables 
The  domain  of  V  is  extended  beyond  the  range  usually 
reserved  for  variables,  since  elements  of  V  may  also  be 
used  as  functions.  With  the  above  vocabulary  and  the 
following  four  rules  (Wegner  (1968))  one  may  construct 
all  permitted  lambda  expressions: 

"  1)  A  variable  standing  alone  is  a  lambda  expres 
sion , 


2)  If  M  is  a  lambda  expression  and  x  a  variable 
then  AxM  is  also  a  lambda  expression.  The 
portion  Ax  is  said  to  be  the  bound- variable 
part  of  the  lambda  expression,  and  M  is 
said  to  be  the  body  of  the  lambda  expression 

3)  If  F  and  A  are  two  lambda  expressions,  then 
(FA)  is  also  a  lambda  expression.  F  is  said 
to  be  the  operator-part  of  the  lambda 
expression,  and  A  is  said  to  be  the  operand- 
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part  of  the  lambda  expression, 

4)  An  expression  is  a  lambda  expression  only 
if  it  can  be  constructed  by  the  above 
rules.  " 

The  syntax  specification  for  these  rules  is  given  in 
Backus  Normal  form,  (Backus  (1963)),  as 

E  : : =  v  |  AvE  |  (EE)  , 

where  E  stands  for  a  lambda  expression  and  v  is  a  member 
of  the  set  V.  The  following  are  a  few  simple  examples 
of  lambda  expressions: 

x  This  expression  consists  of  a  single 

variable , 

(xy)  This  expression  consists  of  an  operator 
x  and  an  operand  y, 

(Axxy)  This  combination  has  as  its  operator 
part  the  expression  Axx  which  in  turn 
is  a  lambda  expression,  and  as  its  oper¬ 
and  part  the  variable  y. 

The  reader  should  notice  that  the  last  example  bears  a 
similarity  to  the  lambda  form  of  the  previous  chapter, 
i.e.,  substitute  "  LAMBDA  "  for  A,  "  varlist  "  for  the 
bound  variable  x,  "  body  "  for  the  second  occurrence  of 
x,  and  "  parameters  "  for  the  variable  y. 


for  the  variabl 


. 
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3.2  Bound,  Free  and  Binding  Variables 

After  defining  lambda  expressions,  we  may  now 
go  on  to  the  rules  which  transform  these  expressions  into 
other  lambda  expressions.  At  this  point  it  is  conven¬ 
ient  to  classify  variables  in  the  following  three  cat- 
agories:  binding,  free  and  bound  variables.  The  follow¬ 
ing  rules  (Wegner  (1968))  are  useful  in  distinguishing 
the  three  types  of  variables. 

"  1)  A  variable  is  said  to  be  a  binding  variable 
if  it  immediately  follows  the  symbol  A, 

2)  A  given  instance  of  a  variable  x  is  said 
to  be  bound  in  a  lambda  expression  M, 

if  it  is  a  binding  variable  or  if  there  is 
a  lambda  expression  M’  in  M  of  the  form 
XxM" ,  where  M"  includes  this  instance  of 
x.  For  example,  in  the  expression  Xx(xy), 
x  occurs  as  both  a  bound  and  binding 
variable , 

3)  A  given  instance  of  a  variable  x  is  said 
to  be  free  in  a  lambda  expression  if  it 
is  not  bound  in  M" .  For  example,  in 
Xx(xy)  y  is  a  free  variable.  " 


. 

. 

. 
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3.3  The  Reduction  and  Renaming  Rules 


Expressions  of  the  form  XxM  represent  single 
argument  functions  which  determine  a  rule  of  substitu¬ 
tion  between  the  expression  and  an  argument  A  for  all 
free  occurrences  of  x  in  M.  For  example, 

A  =  Xx(xy)  , 

where 


M  =  (xXxx) . 

In  this  example  an  argument  A  would  only  be  substituted 
for  the  first  occurrence  of  x  in  M  since  all  other  occur¬ 
ences  of  x  in  M  are  bound  by  the  inner  lambda  expression, 
Xxx . 


Expressions  of  the  form  (FA)  are  called  operator- 
operand  combinations  since  we  perform  the  operation  F 
on  the  operand  A  by  substituting  A  for  all  free  occur¬ 
rences  of  the  bound  variable  of  F  in  F.  This  is  the 
basic  rule  in  the  evaluation  of  lambda  expressions.  Any 
use  of  this  rule,  or  its  subsequent  replacement  and  re¬ 
duction  sub-rules,  will  be  denoted  by  an  arrow  showing 
the  direction  of  the  transformation,  as  the  following 
examples  indicate: 

(Xxx5)  ->-  5 
(Xxx(yz))  ->  (yz) 

(Xx(xy)Xzz)  -*  (Xzzy)  ->  y 


=  j 
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(Xx (xx) Xx (xx) )  (Xx  (xx)  Xx  (xx)  ) 

(We  note  that  the  last  example  yields  a  non- terminat ing 
reduction . ) 

The  substitution  of  a  parameter  A  for  all  occur¬ 
rences  of  a  variable  x  in  an  expression  M  is  formalized 

Y 

by  the  notation:  S^M.  This  implies  that  all  occurrences 
of  x  in  M  are  replaced  by  A.  In  certain  cases,  reduction 
of  (XxMA)  to  S^M,  results  in  the  unintended  identifica¬ 
tion  of  the  variable  x.  For  example,  if 

(XxMA)  -*■  (XxXy  (xz)  (y  z)  )  , 
then  reduction,  by  S^M,  would  be 

Xy  ((yz) z) , 

which  would  cause  unintended  identification  between  the 
binding  variable  y  and  the  free  occurrence  of  y  in  the 
original  expression. 

This  method  of  reduction  may  also  result  in 
expressions  which  are  not  "  well-formed  ",  i.e., 

SAM 

(Xx(xXx(xy) ) (uv ) )  +  (  (uv) X (uv) ( (uv)y) ) . 

These  naming  conflicts  bring  about  the  following  revised 
reduction  rule  and  its  accompanying  renaming  rule. 

3.3.1  The  Reduction  Rule 

"  The  expression  (XxMA)  may  be  replaced  by  sam 
provided  M  contains  no  inner  bound  occurrences 
of  x  and  provided  A  contains  no  free  variables 
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that  are  bound  in  M.  "  (Wegner  (1968)). 

If  any  of  these  conflicts  are  present  we  may  re¬ 
solve  them  by  the  use  of  the  renaming  rule. 

3.3.2  The  Renaming  Rule 

"  Let  M  be  any  well-formed  part  of  a  lambda  expres¬ 
sion  other  that  the  bound  variable  part  itself. 
Then,  if  x  is  a  bound  variable  of  M,  M  may  be 
replaced  by  S*M  provided  M  contains  no  free 
occurrences  of  x  and  y  does  not  occur  in  M.  " 
(Wegner  (1968) )  . 

Some  examples  should  make  this  rule  clear  to  the  reader. 

1)  If  M  e  Ax(xy),  S^M  =  Az(zy)  is  a  legit- 

lj 

imate  application  of  the  renaming  rule, 
but  SyM  =  Ay(yy)  is  not,  since  a  free 
occurrence  of  y  is  already  present  in  M. 

2)  Let  M  =  (xAx(xy)).  The  occurrence  of  free 
and  bound  occurrences  of  x  necessitates  the 
renaming  of  the  bound  variable  x.  Consider 
Ax(xy),  which  is  a  well-formed  part  of  M. 

The  renaming  rule  allows  x  to  be  renamed 

in  the  following  manner: 

SXM’  5  SXAx(xy)  =  Az(zy). 
z  z 

M  now  becomes  (xAz(zy)). 


' 
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3.4  Representation  of  Logical  Values  and 
Logical  Operations 


In  the  statement  "  if  B  then  S  ,  else  S  "  the 

1  2 

logical  expression  B  may  be  thought  of  as  a  selector 
determining  which  element  of  the  two-element  list,  (S  S  ), 
is  to  be  selected.  Therefore  we  need  a  pair  of  two- 
argument  functions  which  1)  select  the  first  argument,  and 
2)  select  the  second  argument.  These  functions,  named 
TRUE,  T,  and  FALSE,  F,  respectively,  will  be  our  list 
selectors.  The  functions  TRUE  and  FALSE  may  be  defined 
in  the  following  manner: 

T  =  AxAyx, 


and 


F  =  AxAyy. 

The  following  examples  will  explain  their  use: 

1)  ( (TP) Q)  =  ( ( AxAyxP ) Q)  -  (AyPQ)  -  P 

2)  C(FP)Q)  =  ( (AxAyyP)Q)  ->  (AyyQ)  -*  Q 

We  may  now  define  the  logical  operations  AND,  OR  and  NOT 
in  terms  of  the  lambda  expressions  T  and  F. 

NOT  =  Ax ( (xF) T)  , 

AND  E  AxAy ( (xy ) F )  , 

OR  e  AxAy  (  (xT)y) . 

Some  examples  are  given  to  acquaint  the  reader  with  the 
logical  operations. 


1)  NOT  T  -*  F 
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(Ax((xF)T)T)  -  ((TF)T)  +  F 
2)  AND  T  F  +  F 

((AxAy((xy)F)T)F)  +  (Ay((Ty)F)F) 

->  ((TF)F) 

->  F 


3) 


AND  T  T  -*  T 

(  (AxAy((xy)F)T)T)  ->  (Ay  (  (Ty)  F)T) 


-  C(TT)F) 

->  T 


4) 


OR  F  T  ->  T 

((AxAy((xT)y)F)T)  ->  (Ay((FT)y)T) 


-  C(FT)T) 
T 


These  logical  operations  are  designed  only  to  have  mean¬ 
ing  when  applied  to  the  logical  functions  T  and  F.  The 
behaviour  of  these  expressions  for  non-logical  values  is 
undefined.  This  is  not  the  case  for  the  functions  T  and 
F:  these  functions  select  the  first  or  second  elements 
(respectively)  of  a  list  regardless  of  the  nature  of  the 
list . 


3.5  Logical  Values  as  List  Selectors 


We  now  wish  to  construct  functions  (from  the  primi¬ 
tives  T  and  F)  for  selecting  the  I1"*1  element  of  a  list. 

To  do  this  we  must  first  define  both  the  lambda  expres¬ 
sions  which  will  be  the  selectors  and  the  form  of  the 
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lambda  expressions  on  which  these  selectors  will  oper¬ 
ate.  The  selectors  are;  (Wegner  (1968)), 

F°T  e  T  E  AxAyx 

FT  E  AxAy(yAxAyx)  =  AxAy(yT) 

F2T  e  AxAy  (yAxAy (y AxAyx) )  =  AxAy(yFT) 


Fi+1T  e  AxAy(yFiT) 

In  defining  the  arguments  the  most  obvious  structure 
would  be 


(4  p  .  .  .  p  }=  p  (p  (p  ...  p  )...), 

01  1  012  1 

which  represents  an  n-element  list.  However,  in  this 

present  representation,  the  element  selector  expression 

defined  above  will  not  return  correct  evaluations,  i.e., 

(  AxAy  (y AxAyx)  p  p  )  (  Ay  (yAxAyx)  4  ) 

0  1  1 


-> 


(4  AxAyx) . 


1 

We  need  to  reverse  the  operand- operator  pair  to  yield  the 
proper  result,  namely  p  .  The  following  restructuring 
is  necessary; 


{p  }  =  Ax((xcf>  )i|i),  where  p  is  a  "  list 
0  0 

terminator  "  equivalent  to  NIL  in  Lisp  1.5. 

{4  <f>  }  E  Ax  (  (x  4>  )  Ax  (  (x<f>  )i|>)) 

01  0  1 

=  Ax  ( (xcj)  ){<{>  }) 

0  1 

{4  (J)  p  }  E  Ax((X(J)  )  { <J)  P  })  , 

0  12  0  12 
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{<$>  4  ...  <J)  }  =  Xx((x<j>  )  { 4>  <j>  ...  <j>  }). 

01  n- i  012  n- i 

Now , 

C  {  4>  ^  )FT)  ->  (Ax((x4>  )Ax((x(j)  )  ip)  )  Ax  Ay  (y  AxAyx) ) 

0  1  o  1 

(  (AxAy  (yAxAyx)  cj)  )Ax((x<|)  )  iJO  ) 

o  1 

-*■  (Ay  (yAxAyx)  Ax  (  (xf  )  ip) ) 

•+■  (Ax((x<J>  )ifi)AxAyx) 
i 

-*  (  ( Ax  Ayx(J>  )  ip) 

+  (Aycj)  1 10 

i 

i 

In  this  manner  a  list  is  a  one-argument  function  which 
expects  a  two-argument  selection  function  as  its  argument. 
The  T,  F  selection  functions  correspond  closely  to  the 
Lisp  functions  head  and  tail,  respectively. 

3.6  Church's  Representation  of  Integers 

The  representation  of  an  integer  n  will  be  de¬ 
fined  in  terms  of  an  n-fold  application  of  a  parameter 
f  to  a  parameter  c.  The  representation  is: 

0  E  AfAcc 

1  e  Af Ac (f c) 

2  E  Af Ac (f (f c) ) 


The  integer  n  is  defined  as  an  n-fold  application  of  the 
first  parameter,  f,  to  the  second  parameter,  c.  "  c  " 
may  be  thought  of  as  representing  the  constant  zero, 
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while  £  of  representing  a  "  successor  function  ",  i.e., 
the  successor  of  the  integer  i  is  i+1. 

Consider  the  integer  N  in  the  above  represen¬ 
tation.  (Na)  is  a  single  parameter  function  of  the  form 
Ac(a(a  ...  (ac)  ...  )),  while  ((Na)b)  is  a  zero  param¬ 
eter  function  of  the  form  (a(a  ...  (ab)  ...  )).  Now, 
if  an  integer  of  the  form  ((Ma)b)  is  applied  to  (Na)  we 
arrive  at  an  expression  of  the  form: 

(a  (a  ...  (ab)  ...  ) ) , 

with  M+N  occurrences  of  a;  i.e.,  ( (Ma) ( (Na) b) )  yields  a 

form  which  is  the  addition  of  the  integers  M  and  N. 

3.6.1  Addition 


The  lambda  expression  which  yields  the  sum  of 
two  positive  integers,  say  M  and  N  is 

[M+N]  e  AaAb  ( (Ma) ( (Na) b) ) .  (1) 

The  operation  of  addition  may  be  defined  as 

"  +  "  =  AMANAaAb ( (Ma) ((Na)b)) . 

Example:  Let  M  =  2  and  N  =  3;  Therefore, 

M  e  Af Ac (f (f c) ) 

and 

N  E  AfAc(f (f (fc))) . 

Now,  incorporating  (1)  with  M  and  N  we  arrive  at  the  form 
AaAb((AfAc(f(fc))a)((AfAc(f(f(fc)))a)b)) 
AaAb(Ac(a(ac)) (Ac(a(a(ac)))b)) 
AaAb(Ac(a(ac)) (a(a(ab)))) 


-> 


*  1 


AaAb  (a  (a  (a  (a  (ab) ) ) ) )  =  5 


3.6.2  Product 

The  product  of  two  integers  is  an  extension  of 
addition  and  may  be  defined  as: 

"  x  "  e  AMANAa (M (Na) ) .  (2) 

Using  the  previous  values  for  M  and  N  and  incorporating 
them  into  (2)  we  have 

Aa (Af Ac (f (fc) ) ( Af Ac (f (f (fc)))a) ) 

->  Aa  ( Af  Ac  (f  (f  c)  )  Ac  (a  (a  (ac)  )  )  ) 

Renaming  is  necessary  at  this  point. 

Aa  (Af  Ab  (f  (fb) )  Ac  (a  (a(ac) ) ) ) 

-*  AaAb(Ac(a(a(ac)))  (Ac(a(a(ac)))b)) 

-*■  AaAb  (Ac  (a  (a  (ac) ) )  (a  (a  (ab) ) ) ) 

->  AaAb  (a  (a  (a  (a  (a  (ab) ) ) ) ) )  E  6 

3.6.3  Exponentiation 

Exponentiation  (*)  is  an  extension  of  product 
and  may  be  defined  as 

"  *  "  E  AMAN(NM)  or  (3) 

[Mn]  =  (NM)  . 

Example:  Let  N  =  2  and  M  =  3.  Binding  M  and  N  to  (3) 
we  have  the  form 

(Af Ac(f (fc)) Af Ac(f (f (fc)))) 


Ac(Af Ac(f (f (fc))) (Af Ac(f (f (fc)))c)) 
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Renaming  is  necessary  at  this  point. 

->  Xa(Af Ac(f (f (fc)))  (AfAc(f(f(fc)))a)) 
Xa  (X£Xc  (£  (f  (£c) ) )  Xc  (a  (a  (ac) )  )  ) 

+  XaXc(Xc(a(a(ac))) (Ac(a(a(ac)))~ 

( Xc  (a  (a  (ac) ) )  c)  ) ) 


Renaming  is  necessary  at  this  point. 

■+■  XaAb(Xc(a(a(ac)))  (Ac(a(a(ac)))- 
(Xc (a (a (ac) ) )b) ) ) 

+  XaXb(Xc(a(a(ac)))  (Xc(a(a(ac)))- 
(a (a (ab) ) ) ) ) 

-*  XaAb(Xc(a(a(ac)))  (a(a(a(a(a(ab ))))))) 
■>  XaXb  (a  (a  (a  (a  (a  (a  (a  (a  (ab) ) ) ) ) ) ) ) )  =  9 


3 .  7  Conclusions 


Together,  lambda  calculus  and  lambda  notation, 
have  been  represented  solely  as  a  method  of  function  eval 
uation  (by  substitution)  without  explicit  facilities  for 
function  execution,  i.e.,  we  may  add  integers  by  means  of 
lambda  calculus  but  we  have  no  explicit  facilities  such 
as 

( Xx ( Ay (  +  xy ) 4 ) 5)  =  9. 

The  addition  of  integers  in  Church's  representation 
would  become  quite  tiresome  for  any  operations  of  a  non¬ 
trivial  manner,  i.e.,  decimal  arithmetic. 

Taking  this  lack  into  consideration,  we  augment 
the  original  syntax  of  lambda  expressions  with  the  follow 
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ing  rule: 

E  :  :  =  pfE ; 

The  new  specification  being: 

E  ::=  v  |  AvE  |  (EE)  |  pfE, 
where  "  pf  M  stands  for  "  primitive  function  ",  whose 
definition  and  application  are  known  to  the  system  upon 
which  the  lambda  notation  is  implimented. 

Some  examples  of  primitive  functions  are 

1)  arithmetic  operations, 

2)  list  manipulation  functions, 

3)  conditional  expressions. 

The  extension  of  lambda  calculus  and  lambda  notation  to 
incorporate  these  primitive  functions,  though  quite 
straight  forward,  will  not  be  discussed  here,  but  in  the 
following  chapter  dealing  with  actual  system  implemen¬ 
tation  . 

The  reader  who  is  interested  in  lambda  calculus 
may  find  the  following  references  helpful:  (Church  (1941)), 
(Landin  (1966)),  (Wegner  (1968)). 


4. 


SYSTEMS  IMPLEMENTATION  AND  DESCRIPTION 


The  purpose  of  this  chapter  is  to  describe  the 
implementation  of  LISP/APL  and  give  insight  to  various 
features  of  the  system.  The  overall  concept  involves  a 
switching  function  which  controls  a  number  of  special 
purpose  routines  for  specific  tasks.  These  routines, 
since  they  are  a  combination  of  recursive  and  iterative 
functions,  rely  on  the  recursive  nature  of  APL  for  the 
implementation  of  syntax  analysis  and  stacking  techniques. 

4.1  Control  Functions 

Four  routines,  LISP,  EV,  LAMBDA  and  PROG,  are 
responsible  for  the  major  portion  of  program  flow.  LISP 
is  the  function  through  which  the  user  gains  entry  to  the 
system,  LAMBDA  and  PROG  simulate  the  two  special  forms 
of  the  same  names,  and  EV  is  the  mainline  interpreter 
responsible  for  overall  program  flow. 

4.1.1  LISP 

LISP  is  the  control  program  initiated  by  the  user 
to  evaluate  a  given  Lisp  program.  LISP  requires  a  single 
parameter,  the  DEFINEd  lambda  expressions  which  are  to  be 
used  throughout  the  session.  If  the  user  wishes,  the 
parameter  may  be  the  empty  vector  \0,  i.e.,  an  absence 
of  defined  entries.  LISP  proceeds  to  place  all  labeled 


-46- 


' 


-47- 


lambda  expressions  on  the  defined  stack,  the  local  var¬ 
iable  STC,  and  then  requests  whether  or  not  the  user 
wishes  a  FULL  DESCRIPTION.  If  the  user  signifies  YES, 
a  few  lines  of  information  about  the  system  are  typed. 

The  system  then  requests  what  type  of  input  is 
to  be  used  for  the  current  session,  i.e.,  whether  all 
input  requests  are  to  be  serviced  by  the  user,  or  by  the 
user  defined  character  vector  INPUT.  If  terminal  input 
is  not  requested,  i.e.,  by  any  response  other  than  YES, 
then  the  input  vector  is  to  be  used.  This  vector  is  in 
the  form  of  a  list.  The  head  of  the  list  is  acquired 
for  each  input  request,  while  INPUT  is  redefined  as  the 
tail  of  the  current  INPUT. 

Immediately  following  I/O  mode  verification  the 
user  is  asked  to  CONTINUE,  i.e.,  to  supply  a  control 
instruction.  For  example,  if  the  define  stack  (STC) 
contained  the  following  two  entries,  with  appropriate 
labels, 

Label  Expression 

START  (LAMBDA  ()  (WRITE  (LAST  (READ)))), 

LAST  (LAMBDA  (L)  (COND  ((NULL  L)  NIL)  ((NULL 

(TL  L))  (HD  L))  (T  (LAST  (TL  L))))), 
and  one  wished  to  find  the  last  top-level  element  of  a 
list,  an  appropriate  instruction  would  be 

(START  NIL) . 

In  this  example  an  input  request  would  be  encountered 
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because  of  the  READ  instruction  in  START.  An  appropriate 
list  should  be  available  for  evaluation.  Upon  completion 
of  the  task,  the  system  again  asks  for  a  control  instruc¬ 
tion  by  displaying  CONTINUE.  At  this  time  the  user  may 
request  termination  by  typing  STOP,  or  may  continue  by 
supplying  a  new  instruction. 

LISP  initializes  the  association  list,  variable 
S,  with  the  variables  T,  F  and  NIL  bound  to  the  values  T, 
NIL  and  NIL,  respectively.  This  must  be  done  since  all 
variables  are  evaluated  and  must  have  a  binding  present 
if  proper  results  are  to  be  obtained.  A  complete  de¬ 
scription  of  the  association  list,  A-list,  is  given  in 
the  section  on  STACKING. 

There  are  two  error  conditions  analysed  by  LISP. 
The  first  is  that  the  head  of  the  input  expression  must 
be  the  atom  DEFINE,  unless  the  empty  vector  is  used, 
while  the  second  is  that  of  "  parentheses  counting  "  to 
ensure  that  the  structures  are  parenthetically  correct, 
i.e.,  to  insure  matching  parentheses. 

4.1.2  EV 

As  each  control  instruction  is  encountered  by 
LISP,  the  instruction  is  passed  on  to  EV  for  evaluation. 
While  in  a  large  number  of  cases  EV  requests  other 
functions  to  perform  evaluations,  in  the  following  cases 
the  evaluations  are  performed  directly  by  EV : 
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1)  All  arithmetic,  boolean  and  logical 
operations , 

2)  binding  of  variables, 

3)  retrieval  of  variable  bindings, 

4)  output  of  WRITE  instructions, 

5)  evaluation  of  GO,  RETURN  and  QUOTE 
arguments . 

The  switching  procedure  used  by  EV  is  a  simple  one.  A 
logical  operation  on  the  head  of  the  input  parameter 
gives  a  branch  point,  in  EV,  which  transfers  program 
flow  to  the  area  that  implements  the  action  necessary; 
whether  this  is  a  call  to  another  function  or  is  to  be 
handled  directly  by  EV.  The  single  error  condition  tested 
for  in  EV  is  that  of  undefined  variables,  i.e.,  a  var¬ 
iable  which  does  not  have  a  binding. 


4.1.3 


LAMBDA 


In  the 

chapter  on  lambda  calculus 

we 

discussed 

the 

mechanics 

of  variable  binding  and 

its 

re 

levance  to 

the 

evaluation 

of  lambda  expressions. 

A 

maj 

or  problem 

was  encountered  when  unwarranted  identification  of  bound 
and  free  variables  occurred.  For  example,  in  the  expres¬ 
sion  (xAx(xy)),  if  the  first  occurrence  of  x  were  bound 
to  some  value,  by  an  encompassing  lambda  expression,  we 
would  not  want  to  replace  all  occurrences  of  x  with  this 
value.  To  alleviate  this  problem  we  incorpo 


rated  the  re- 
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naming  rule  which  enables  the  expression  to  be  rewritten 
to  negate  the  problem,  i.e., 

(xAx(xy))  -*  (xAz(zy)).. 

When  encountering  the  same  problem  in  a  Lisp  expression, 
i.e., 


(  +  X  ((LAMBDA  (X)  X)  2)), 

we  bypass  the  renaming  process  as  a  method  of  distin¬ 
guishing  between  occurrences  of  X,  in  favor  of  the  stack 
method.  For  example,  suppose  the  first  occurrence  of  X 
is  bound  to  the  numeric  constant  4,  while  the  second 
occurrence  of  X  is  to  be  bound  to  the  constant  2.  Now 
the  evaluation  routine  would  take  the  inner  lambda  expres¬ 
sion  and  attempt  to  evaluate  it.  At  this  point  a  stack 
entry  is  present  binding  X  to  the  value  4.  The  control 
program  LAMBDA  is  called  and  the  parameter  pairing  process 
begins,  binding  X  to  the  value  2  and  placing  this  bind¬ 
ing  on  the  stack  S.  The  body  of  this  expression,  X,  is 
returned  to  EV  for  evaluation.  Since  we  are  using  a  last- 
in-first-out  stack,  the  value  of  the  latest  occurrence  of 
X,  2,  is  retrieved  and  returned  to  the  calling  program. 

The  new  expression  (+  X  2)  is  now  re-evaluated  by  EV . 

On  return  from  LAMBDA  the  stack  was  reinstated  to  its 
former  condition,  with  the  original  binding  of  X,  4, 
uppermost  on  the  stack.  Now,  the  latest  occurrence  of  X 
is  returned  resulting  in  the  expression  (+  4  2)  which 


is  evaluated  to  obtain  the  correct  result. 
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As  in  other  programming  languages  the  actual 
parameters  of  a  subroutine  must  match  its  defined  formal 
parameters.  Here  "  actual  parameters  "  signify  those 
parameters  present  during  subroutine  call.  This  is  also 
the  case  in  LISP/APL.  All  lambda  expressions  must  be 
accompanied  with  equivalent  actual  parameters.  Therefore, 
the  single  error  condition  which  may  arise  from  LAMBDA  is 
one  of  incompatible  parameter  lists. 

4.1.4  PROG 

In  order  to  simulate  Lisp  1.5  correctly  a  separate 
control  function  PROG  was  needed  to  evaluate  the  program 
form.  Program  variables,  unlike  LAMBDA  variables,  are 
not  paired  with  associated  parameters,  but  are  placed  on 
the  stack  with  NIL  values.  Evaluation  of  a  PROG  expres¬ 
sion  proceeds  in  the  following  manner.  Each  segment , i . e . , 
statement,  is  passed  to  EV  to  be  evaluated  and  the  result 
dealt  with  according  to  the  following  criteria.  Unlike 
lambda  expressions,  we  may  expect  four  types  of  results. 
These  results  are  associated  with  the  global  variable  FLG, 
which  is  initialized  to  zero  before  evaluation  of  the  seg¬ 
ment  takes  place.  The  values  of  FLG  and  their  significance 
are  given  in  the  following  table. 

FLG  value  Meaning 

0  No  action  is  undertaken  by  PROG.  The  next 

program  segment  is  interrogated. 


No  action 


-52- 


implies  that  none  of  the  following  events 
has  taken  place. 

1  A  SET  or  SETQ  instruction  has  been  encount¬ 
ered  and  a  new  stack  entry  is  present. 

2  A  RETURN  instruction  has  been  encountered. 

The  result  returned  is  to  be  the  result  of 
the  PROG  expression. 

3  A  GO  instruction  has  been  encountered.  The 

result  returned  is  the  label  to  which  pro¬ 
gram  flow  is  to  be  transferred. 

If  nested  PROG’s  are  encountered,  the  scope  of 
SET  and  SETQ  instructions  encompass  all  subordinate  PROG's 
but  are  not  available  to  "  higher  "  PROG’s.  A  GO  instruc¬ 
tion  may  only  transfer  control  to  labels  in  the  PROG  in 
which  the  GO  is  resident.  The  following  two  error  condi¬ 
tions  are  associated  with  the  PROG  feature: 

1)  A  RETURN  instruction  was  not  encountered 
in  a  PROG, 

2)  an  attempt  to  branch  to  an  undefined  label 
was  detected. 

4.2  Stacking  Techniques 

In  the  Lisp  1.5  described  by  Weissman  (1967),  an 
Association  list,  A-list,  is  kept  on  which  variables  are 
placed,  along  with  their  bindings, 
format  of  the  association  list  is 


for  later  use.  The 
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C (v  *b  )  ( v  • b  )  ...  ( v  • b  ) )  , 

11  22  n  n 

where  the  v.  are  variable  bindings,  and  the  b.  are  the 
i  i 

values  associated  to  these  bindings.  The  A-list  is  used 
as  a  las t - in- f irs t - out  stack  for  the  retrieval  of  any 
needed  bindings.  However,  in  this  implementation,  it  was 
thought  to  be  to  costly  in  terms  of  interpreter  time  to 
incorporate  an  A-list  of  this  type,  so  another  method  was 
devised  which  is  decidedly  APL  dependent. 


4.2.1 


Stacking 


When  a  bound  variable  is  to  be  placed  on  the 
stack,  S,  it  is  catenated  to  the  "  front  "  of  S,  along 
with  the  necessary  information  needed  to  successfully 
retrieve  it,  by  the  function  AON.  The  variable  name  is 
prefixed  and  suffixed  by  the  symbols  ' t '  and  'l*  respec¬ 
tively  to  insure  uniqueness  among  any  similar  names  al¬ 
ready  in  the  stack  as  bindings.  The  length  of  the  bind¬ 
ing  is  also  attached  to  the  stack  for  retrieval  purposes. 
Since  we  must  know  the  maximum  character  length  of  the 
binding  length,  the  binding  length  is  incremented  by  1000 
before  being  converted  to  character  form.  In  this  manner 
the  character  length  of  the  binding  length  will  always 
be  four.  The  binding,  along  with  the  length,  is  then 
catenated  to  the  stack.  For  example,  if  we  wish  to  stack 
the  bound  variable  L,  along  with  its  associated  binding 
(A  B  C) ,  the  resulting  stack  would  be 
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fLll 00  7  (A  B  C)  .  .  .  . 

4.2.2  Retrieval 

The  retrieval  of  the  binding  of  a  bound  variable 
proceeds  in  the  following  manner.  An  APL  logical  operation 
gives  the  initial  indices  of  all  occurrences  of  the  vari¬ 
able,  suitably  prefixed  and  suffixed  by  and  ’l',  respec¬ 

tively.  The  first  occurrence  is  then  retrieved  by  convert¬ 
ing  the  length  field  into  a  four-digit  integer  and  dec¬ 
rementing  by  1000  to  obtain  the  correct  binding  length. 

The  binding  is  then  retrieved  and  transferred  to  the  call¬ 
ing  program  for  further  evaluation. 

Upon  entry  to  the  retrieval  function  a  "  dummy  " 
entry  is  placed  on  the  "  bottom  "  of  the  stack,  i.e.,  the 
right  end.  This  entry  consists  of  the  variable  name  and 
the  character  string  10011.  This  enables  the  calling 
program  to  determine  if  a  variable  name  is  present.  In 
this  manner  a  legitimate  result  is  always  returned.  The 
special  symbol  when  returned  as  a  binding,  indicates 

an  undefined  variable  is  present. 

4.5  Auxiliary  Functions 

The  operations  which  fall  into  this  catagory 
may  be"  divided  into  six  groups,  arithmetic,  boolean, 
logical,  list,  I/O  and  debug  operations. 

The  normal  arithmetic  operations  are  made  avail- 
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able  to  the  user;  these  are  add,  subtract,  multiply, 
divide,  exponentiation  and  factorial,  and  are  denoted  by 
+  >  -  >  x  > """  >  *  and  !,  respectively.  All  arithmetic  operators, 
with  the  exception  of  factorial,  have  the  syntax 

(op  a  a  ...  a  1  , 

12  n 

where  a^  is  an  argument  which  must  evaluate  to  a  number. 
The  syntax  for  factorial  is 

On), 

where  n  is  an  argument  which  also  must  evaluate  to  a 
number . 

The  total  number  of  arguments,  for  operations 
other  than  factorial,  is  indefinite,  and  are  limited  by 
the  amount  the  user  deems  necessary.  The  result  of  an 
operation  on  a  null  list  is  dependent  on  the  operation 
used,  as  exemplified  by  the  following  table: 

Operation  Result 

+  ,-  0 

x  O  ,  *  1 

The  common  Lisp  functions  ADD1 ,  SUB1,  etc,  are 
omitted  in  lieu  of  the  above  operations  since  the  single 
symbol  operators  allow  for  a  decrease  in  interpretation 
time  with  no  loss  of  generality. 

The  boolean  operators  available  are  AND  (a) y 
OR  (v)  and  EXCLUSIVE  OR  (v) .  These  operations  are  syntac¬ 
tically  equivalent  to  the  arithmetic  operators  +,-,x,v,* 
with  the  same  conditions  imposed  regarding  number  of 
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arguments  .  For  null  argument  lists  the  results  are, 

Operation  Result 

v ,  v  0 

a  1 

The  implementation  of  boolean  operators  proceeds 
in  the  following  manner.  All  arguments  are  converted  to 
32-bit  binary  values,  the  operation  is  performed,  and 
the  result  reconverted  to  decimal  notation.  As  an 
example,  consider  the  expression: 

(v  8  9  5)  . 


The 

three 

arguments 

are  converted  to  binary  and  evaluated 

8 

00  .  .  . 

01000 

1  0 

2 

9 

00  .  .  . 

01001 

1  0 

2 

5 

00  .  .  . 

00101 

1  0 

2 

V  = 

00  .  .  . 

01101 

2 

The 

result 

,  when  converted 

to  decimal  notation,  is  13 

1  0 

For 

binary 

values , 

(a  1  1  0  1)  =  0. 


Also  included  are  the  six  logical  operations  =, 
*,  <,  <,  >,  >,  which  have  the  same  requirements  and 
conditions  as  boolean  operators,  with  regard  to  syntax 
and  number  of  arguments.  When  null  argument  lists  are 
encountered  the  following  results  are  obtained: 

Operation  Result 


< 

» — 


> 


t  -p » 


* 


< 


> 


’NIL' 


• 

■ 
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As  one  sees  from  the  above  table,  logical  operations 
return  T  for  true,  and  NIL  for  false  evaluations.  For 
example , 

(=889)=  NIL, 

(*89)=  T, 

(>  8  7)  =  T. 


A  combination  logical - arithmetic  operation, 

SHIFT,  is  included  in  LISP/APL.  SHIFT  is  a  three-element 
list  in  which  the  first  argument  is  shifted  left  or  right 
(depending  on  left  or  right  shift)  n  places,  where  n  is 
the  second  argument  of  the  list,  i.e., 

(«-  4  3)  E  (x  4  (*  2  3))  =  32, 

and 

(+  16  2)  =  ( -r  16  (*  2  2))  =  4. 


In  the  case  of  right  shift,  the  result  is  the  greatest 
integer,  less  than  or  equal  to,  the  result  of  the  oper¬ 
ation,  i.e., 

(+  18  2)  =  (M8  (*  2  2))  =  4.5  =  4. 

The  complement  of  Lisp  primitives  is  equivalent 
to  those  discussed  in  Chapter  2,  viz.,  AND,  CONS,  COND, 
DUMP,  EVAL,  EQUAL,  HD,  I NT,  MEMBER,  NULL,  NUM,  NOT,  OR, 
QUOTE,  READ,  SELECT,  SET,  SETQ ,  TL  and  WRITE. 

The  syntax  for  HD,  TL,  NULL,  EVAL,  WRITE,  NUM, 
NOT,  QUOTE  and  INT  is 

(operator  e)  , 

where  e  is  the  single  argument  to  he  operated  on.  The 
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two  unfamiliar  functions  NULL  and  NUM  are  used  to  deter¬ 
mine  if  a  list  is  empty,  or  if  a  quantity  is  a  number, 
respectively.  The  function  INT  is  used  to  convert  any 
number  into  an  integer  quantity. 

For  SET,  SETQ  and  CONS  the  common  format  is 

(operator  a  a  ) , 

12 

where  a  and  a  are  the  first  and  second  arguments  of 
1  2 

the  operation,  respectively.  SELECT,  COND ,  DUMP,  AND, 

OR  and  MEMBER  may  have  as  many  elements  as  the  user  deems 
necessary  for  the  task  in  question. 

The  three  functions,  AND,  OR  and  NOT,  have  not 
yet  been  discussed,  and  so  will  be  outlined  here.  NOT 
is  identical  in  format  and  result  to  NULL,  i.e.,  NOT 
gives  the  same  results  that  one  would  obtain  from  using 
NULL.  AND  is  a  boolean  operation,  as  is  OR,  which  returns 
a  T  value  unless  a  NULL  value  is  found  in  the  associated 
parameter  list,  in  which  case  a  NIL  value  is  returned. 

Two  examples  are 

(AND  NIL  T  T  T)  =  NIL, 

and 

(AND)  =  T. 

OR  is  similar  to  AND  in  format  but  returns  a  NIL  value 
unless  a  non-NULL  value  is  present  in  the  parameter  list, 
in  which  case  the  result  is  T.  For  example, 

(OR  NIL  NIL  T)  =  T, 


and 
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(OR)  =  NIL. 

Both  OR  and  AND  are  unlimited  with  respect  to  the  number 
of  arguments  permitted  in  their  respective  parameter  lists. 

The  READ  routine,  RDR,  attempts  to  read  the  next 
input  record  needed  by  the  Lisp  program.  If  the  user 
specified  terminal  input  at  the  start  of  the  session, 
control  will  return  to  the  user,  requesting  input.  If 
vector  input  was  desired,  the  input  expression  becomes 
the  head  of  INPUT,  an  APL  character  vector.  If  a  read 
is  attempted  on  INPUT,  but  is  not  successful,  the  error 
message  INPUT  VECTOR  EMPTY  is  displayed.  The  result  of 
a  successful  read  may  be  bound  to  a  variable  by  a  SET  or 
SETO  operation.  The  instruction  format  for  a  read  is 

(READ) . 

The  WRITE  routine,  which  replaces  the  Lisp  PRINT 
routine,  is  consolidated  into  EV  since  the  routine  mere¬ 
ly  displays  the  evaluated  result  of  the  given  argument. 

The  format  for  a  WRITE  instruction  is 

(WRITE  e) , 

where  e  is  the  expression  to  be  written. 

The  two  debugging  aids,  TRACE  and  DUMP,  though 

of  a  simple  nature,  will  be  quite  helpful  in  diagnosing 

errors  in  the  user's  program.  The  instruction 

(DUMP  x  x  .  .  .  x  ) 
i  2  n 

will  display  the  variables  x  ,  in  succession,  each  time 

i 

the  instruction  is  executed.  The  variable  bindings  are 
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also  displayed.  We  note  that  the  arguments  of  DUMP  are 
not  evaluated,  and  therefore  literal  atoms  must  be  placed 
in  the  parameter  list.  If  the  list  of  variables  contains 
an  undefined  variable  an  appropriate  error  message  is 
generated.  Entries  on  the  stack  S,  and  the  define  list 
STC  may  be  "  dumped  ".  Whenever  an  error  condition  is 
encountered  in  any  Lisp  program  the  following  events  take 
place : 


It  should 
cannot  be 


1)  An  error  message  is  generated  according  to 
the  type  of  error  commited, 

2)  the  report  TRACE-BACK  FOLLOWS  is  displayed, 

3)  a  "  trace  "  of  all  LISP/APL  functions  through 
which  the  expression  has  passed  is  displayed. 

be  noted  that  TRACE  is  an  automatic  aid  and 
called  as  a  program,  such  as  DUMP. 


4.4  Conclusions 


The  reader  is  referred  to  the  following  refer¬ 
ences  for  other  examples  of  Lisp,  and  its  implementation, 
with  which  he  may  broaden  his  knowledge  of  the  language: 
Abrahams  (1968),  McCarthy  (1962),  Wegner  (1968),  Weissman 
(1967)  and  Woodward  (1966).  Appendices  are  attached 
which  will  help  to  acquaint  the  reader  with  the  various 
aspects  of  LISP/APL,  and  also  the  workings  of  the  program¬ 
ming  language  APL. 


5. 


CONCLUSIONS 


The  purpose  of  this  thesis  was  to  investigate 
the  feasibility  of  lisp  processing  in  APL .  The  success 
of  this  project  depends  on  the  answers  to  a  number  of 
questions,  i.e.,  does  LISP/APL  duplicate,  to  a  signif¬ 
icant  degree,  LISP/MTS?,  what  difficulties,  if  any, 
were  overcome  in  the  implementation  of  LISP/APL?,  should 
APL  be  considered  as  an  implementation  language  for 
future  list  processors?,  what  are  the  practical  uses  for 
the  system  and  what  future  developments  in  LISP/APL  may 
we  see  take  place?  We  shall  attempt  to  answer  these 
questions  in  this  chapter. 

There  are  a  few  minor  differences  between  the 
notation  used  in  LISP/MTS  and  LISP/APL.  For  example, 
the  LISP/MTS  designations  ADD,  DIFFERENCE,  PRINT,  CAR, 

CDR ,  TIMES  and  DIVIDE  are  replaced  by  + ,  -,  WRITE,  HD, 

TL,  x  and  v ,  respectively,  in  LISP/APL.  However,  the 
overall  structure  of  programs  in  both  systems  is  very 
similar  with  the  exception  of  the  above  discrepancies 
(and  other  similar  differences  of  system  routine  names). 
The  major  difference  is  the  structure  of  initial  control 
instructions.  Under  LISP/APL  a  control  instruction  takes 
the  form 

(function-name  parameters), 
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while  under  LISP/MTS  an  equivalent  instruction  would  be 

function-name  (parameters) . 

With  these  differences  in  mind  a  number  of  comparisons 
between  the  two  systems  will  be  made.  A  listing  of  the 
LISP/MTS  and  LISP/APL  programs  is  given  prior  to  their 
use,  as  an  aid  to  the  reader. 


>  DEFINE'  {{{ HANOI  { LAMBDA  {ABC) 

> { PR 0 G  NIL 

> ( COND  (( ZEROP  C )  ( RETURN  NIL))) 

>{  HANOI  A  { DIFFERENCE  { DIFFERENCE  6  A)  B)  {SUB  1  C ) ) 

> ( PR I N T  {LIST  *MOVE  PEG *  A  *T0  PEG*  B  *DISK*  C)) 

>{ HANOI  {DIFFERENCE  {DIFFERENCE  6  A)  B)  B  {SUB  1  C) ) 

>{ RETURN  NIL)))))) 

> DEFINE  {{{JOE  {LAMBDA  NIL  {PROG  {N  M  LSI) 

> ( SETQ  N  {READ)) 

> ( SETQ  LST  {READ)) 

> { SE TQ  LST  { NCONC  LST  LST)) 

>TAG 

>  {  SETQ  M  N) 

>i'AA 

>  {  SETQ  14  {SUB  1  14)  ) 

> { SETQ  LST  ( CDR  LST)) 

> ( COND  {{EQ  LST  {CDR  LST))  {GO  OUT)) 

>{  { NOT  {EQUAL  14  2))  {GO  TAA  )  )  ) 

>{ PRINT  {CADR  LST)) 

> ( SETQ  LST  {CDR  {R PLACE  LST  { CD  DR  LST)))) 

>  {  GO  I A  G  ) 

>0  UT 

>{ PRINT  {CAR  LST)) 

>{ RE  TURN  NIL)))))) 

HANOI  (122) 

ARGUMENTS  FOR  EVALQUOTE  . . . 

HANOI 
(12  2) 

{MOVE  PEG  1  TO  PEG  3  DISK  1) 

{MOVE  PEG  1  TO  PEG  2  DISK  2) 

{MOVE  PEG  3  TO  PEG  2  DISK  1) 

TIME  4 IMS ,  VALUE  IS  ... 

NIL 


. 
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JOE  NIL 

ARGUMENTS  FOR  EVALQUOTE  . .  . 
JOE 
NIL 
3 

(A  B  C  D  E) 

C 

A 


J) 

TIME  116 NS,  VALUE  IS  .  .  . 

NIL 

TIMES  (123) 

ARGUMENTS  FOR  EVALQUOTE  ... 
TINES 

(1  2  3) 

TIME  0 MS ,  VALUE  IS  ... 

£ 

v^* 


JOE 

( DEFINE 

( JOE  (LAMBDA  NIL  (PROG  (N  M  LST ) 

( SETQ  N  (READ)) 

(SETQ  LST  (READ)) 

(SETQ  LST  ( N CON C  LST  LST)) 

TAG 

(SETQ  M  N) 

TAA 

( SETQ  M  ( -  M  1 ) ) 

(SETQ  LST  (TL  LST)) 

(GOIJD  ((EQ  LST  (TL  LST))  (GO  OUT)) 

( *  M  2 )  (GO  TAA ) ) ) 

( PRINT  ( HD  ( TL  LST ) ) ) 

(SETQ  LST  (TL  (RPLACT  LST  (TL  (TL  LST))))) 
(GO  TAG) 

OUT 

(P HINT  (HD  LST)) 

(RETURN  NIL))))) 


■ 


'  -  : 
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H  All  01 

( DEFINE 

( HANOI  ( LAMBDA  ( A  B  C ) 

(PROG  NIL  (CORD  ((=  C  0)  (RETURN  NIL))) 

(HANOI  A  (-6  (+45))  ( -  C  1 ) ) 

(WRITE  (LIST  coo)u)  MOVE  REG  w  4  wwa  TO  xD5Y7  a  5  ojcjco  DISK  u>  C )  ) 
(HANOI  (-6  (+  A  B))  B  (-  C  1)) 

(RETURN  NIL))))) 


LISP  lO 

FULL  DESCRIPTION? 


NO 


DO  YOU  WISH  TERMINAL  INPUT? 


CONTINUE 

(HANOI  122) 


(MOVE 

PEG 

1 

TO 

PEG 

3 

DISK 

1) 

(MO  VE 

PEG 

1 

TO 

PEG 

2 

DISK 

2) 

(MOVE 

PEG 

3 

TO 

PEG 

2 

DISK 

1) 

NIL 

CONTINUE 
(JOE  NIL) 


INPUT  REQUEST. 


3 


INPUT  REQUEST. 


(ABODE) 
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C 

A 

E 

3 

U 

NIL 

CONTINUE 
(X  1  2  3) 

6 

CONTINUE 


3  TOP 

n  THE  TWO  EXAMPLES  GIVEN  ABOVE  ( THE  TOWERS  OF 
a  HANOI  AND  THE  JOSEPHUS  PROBLEM)  WERE  OBTAINED 
a  FROM  BALL ,  ELEVENTH  EDITION  (1963). 
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It  is  obvious  that  the  comparison  of  the  two 
systems  indicates  a  correspondence  between  the  computa¬ 
tional  capabilities  of  the  two  systems.  The  result  of 
this  similarity  answers  the  first  question  concerning  the 
resemblance  of  the  two  systems,  i.e.,  LISP/APL  does  match 
LISP/MTS  in  form  and  computational  result. 

APL  is  a  powerful,  but  concise,  language.  It  is 
ideally  suited,  because  of  its  recursive  nature  and  full 
complement  of  array  operations,  to  the  implementing  of  an 
interpreter  for  a  recursive  language.  Once  the  format  of 
the  language  had  been  decided  upon  and  the  design  strategy 
determined,  implementation  became  quite  straightforward. 

The  difficulties  that  were  encountered  were  those  of  de¬ 
bugging  the  completed  system  support  functions,  and  the 
rewriting  of  certain  functions  once  a  more  efficient 
method  was  found. 

The  question  of  whether  a  certain  programming 
language  can  be  used  to  implement  a  specific  system  is  a 
difficult  one.  There  are  many  factors  which  contribute 
to  the  success  or  failure  of  such  a  task.  The  attributes 
which  the  system  is  to  have  will  govern  the  implementation 
of  that  system.  The  programming  language  chosen  must 
have  facilities  on  which  implementation  may  be  based,  i.e., 
if  the  system  is  recursive  it  is  less  tedious  to  define 
that  system  on  a  recursive  language  than  on  a  non¬ 
recursive  language.  The  programming  language  should  also 
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have  array  defining  capabilities  for  the  storage  of  lists. 
The  programming  language  APL  would  seem  to  fit  this  gen¬ 
eral  picture  since  APL  has  both  powerful  array  handling 
operations  and  is  recursive. 

i 

As  with  most  list  processors  the  main  advantages 
of  LISP/APL  are  1)  the  symbol  manipulation  capability  and 
2)  the  ability  to  generate  data  structures  without  pre¬ 
defining  them,  i.e.,  the  user  does  not  have  to  pre-select 
the  maximum  number  of  levels  (depth)  or  cells  before  he 
begins  program  execution.  LISP/APL  allows  nesting  and 
utilization  to  the  maximum  amount  of  available  storage. 
This  dynamic  memory  allocation  scheme,  with  symbol  man¬ 
ipulation  capabilities,  allows  such  problems  as  symbolic 
differentiation  and  simplification  to  be  attempted. 

The  storage  device  used  in  LISP/APL,  the  character 
vector,  is  similar  to  the  stacks  described  in  the  des¬ 
cription  of  the  SECD  machine  (Wegner  (1968)).  Two  advan¬ 
tages  of  this  device  are  the  absence  of  garbage  collection 
procedures  and  the  ease  of  handling  lists.  Since  we  are 
using  character  vectors  as  list  structures  no  collection 
is  necessary,  while  stack  memory  must  be  reclaimed.  The 
APL  system  allows  collection  of  the  stack,  since  the  stack 
is  passed  as  a  parameter  to  all  LISP/APL  functions.  When 
a  new  entry  is  placed  on  the  stack  a  new  stack  is  con¬ 
structed  consisting  of  the  old  stack  and  the  new  entry; 
when  control  is  returned  to  the  calling  routine  the  new 
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stack  is  replaced  by  the  old  stack.  In  this  manner  the 
APL  system  manages  the  allocation  and  collection  of  memory 
storage  for  the  LISP/APL  system.  The  handling  of  char¬ 
acter  vectors  is  somewhat  simpler  than  the  handling  of 
list  structures  because  in  the  case  of  vectors  we  do  not 
have  to  generate  the  list  structure  each  time  output  is 
necessary,  or  when  comparison  is  needed  between  atoms  or 
lists,  etc.  A  consequence  of  these  advantages  of  char¬ 
acter  vectors  over  list  structures  is  the  slowness  of  the 
system  which  is  partly  attributed  to  the  manipulation  of 
the  character  vectors.  For  example,  to  evaluate  the 
expression 

((LAMBDA  (M  N)  (+  M  N))  5  6) 

the  LISP/APL  system  must  execute  the  APL  functions  HD  and 
TL  many  times.  These  two  functions  are  used  very  fre¬ 
quently,  and  so,  if  the  functions  are  not  efficient,  then 
the  system  cannot  be.  These  functions  are  quite  complex 
and  require  a  significantly  long  time  to  execute.  If  a 
"  pointer- array  "  scheme  were  used  a  saving  in  time  would 
be  attained. 

The  pointer- array  system  is  a  network  of  memory 
cells,  in  the  form  of  a  two-dimensional  array,  which  im¬ 
plements  the  tree  structure  described  in  Chapter  2.  The 
"  space-cost  "  for  the  pointer- array  structure  is  high  in 
comparison  to  the  character  vector  arrangement  because  of 
the  inability  of  APL  to  allow  manipulation  of  bytes, 


' 

' 

. 
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other  than  in  literal  strings.  As  an  example  consider 
this  expression, 

((ABC  D)  E  (FG) ) 

which  may  be  represented  graphically  as  follows: 


Figure  1 

Graphical  representation  of  a  list 
The  pointer- array  network  which  may  be  used  consists  of 
a  two-column  matrix  of  the  form: 

(row  #)  1. 

2. 

3. 

4. 

5. 

6. 

Figure  2 

Simplified  storage  of  a  list  structure 
in  a  pointer- array  network 

Of  course,  the  atoms  are  not  contained  in  this  network, 
but  in  a  similar  structure.  A  second  structure  is  nec- 


2 

3 

ABC 

4 

E 

5 

D 

NIL 

6 

NIL 

FG 

NIL 
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ess 

ary  since 

APL  does 

not 

allow  " 

mixed-mode  " 

arrays 

whi 

ch  combine 

literal 

and 

numeric 

quantities . 

The  storage 

cos 

t  for  this 

network 

is  : 

1)  Eight 

bytes 

per 

memory  cell:  48  by 

2)  Eight 

bytes 

per 

identifier  pointer 

bytes 

3)  Seven 

bytes 

for 

actual  storage  of 

ident 

if iers 

• 

Therefore , 

the  total  memory 

cost 

for  this  structure 

8 7  bytes . 

The  storage 

cost 

for 

the  character  vecto 

somewhat  smaller,  16  bytes,  since  we  are  allowed  to  store 
one  literal  character  per  byte.  This  disadvantage  does 
not  preclude  the  use  of  such  a  network;  the  initial  reason 
for  not  using  such  a  scheme  was  the  size  of  an  APL  work¬ 
space,  i.e.,  -30K  bytes.  Since  the  implementation  of 
variable  size  workspaces,  the  pointer- array  network  has 
been  implemented.  A  more  detailed  account  is  given  in 
Appendix  D. 

It  would  seem,  from  the  above,  that  the  concept 
of  a  list  processor  implemented  in  APL  is  indeed  feasible. 
The  future  development  of  APL  becomes  an  advantage  of 
any  APL-based  system.  The  impending  development  of 
compiler-based  APL  machines  will  enable  APL  to  become  a 
more  useful  and  efficient  language  than  it  may  be  at  the 
present  time. 


■ 
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APPENDICES 


APPENDIX  A 


A  SAMPLE  SESSION 

Before  the  user  attempts  to  utilize  the  system 
he  should  keep  a  number  of  points  in  mind: 

1)  When  the  user  wishes  to  initiate  a  session, 
he  may  use  a  "  define  "  list,  or  the  null 
vector,  i.e.,  *0,  as  the  input  parameter  to 
the  control  function  LISP.  A  suitable 
instruction  would  be 

LISP  TEST 

where  TEST  is  the  Lisp  program  to  be  ex¬ 
ecuted  , 

2)  All  user  replies,  including  control  instruc 
tions,  are  started  at  the  left  margin,  whil 
all  system  queries  and  results  are  indented 
f ive  spaces , 

3)  Queries  may  be  answered  affirmatively  by 
responding  with  YES  or  with  any  set  of  char 
acters  beginning  with  Y.  A  response  begin¬ 
ning  with  any  other  letter  is  assumed  to  in 
dicate  NO. 

4)  If  a  description  of  the  system  is  necessary 
answer  YES  to  the  query  FULL  DESCRIPTION?, 

5)  If  terminal,  i.e.,  interactive,  input  is 
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required,  answer  YES  to  the  query  DO  YOU  WISH 
TERMINAL  INPUT?  If  terminal  input  is  not 
requested,  all  read  requests  will  be  taken 
from  the  input  vector  INPUT, 

6)  When  CONTINUE  is  displayed  a  control  instruc¬ 
tion  or  STOP  instruction  may  be  entered.  A 
reply  of  STOP  will  terminate  the  current 
session . 

The  examples  given  in  this  sample  session  are  simple,  but 
attempt  to  show  the  computational  abilities  of  LISP/APL. 


LISP  iO 

FULL  DESCRIPTION? 


YES 


WHEN  'CONTINUE'  IS  DISPLAYED  A  CONTROL 
INSTRUCTION ,  OR  'STOP'  INSTRUCTION  MAY  BE 
ENTERED . 

ALL  USER  REPLIES ,  INCLUDING  CONTROL  INSTRUCTIONS , 
ARE  STARTED  AT  THE  'LEFT  MARGIN '  ,  1.2.  ,  NOT 
INDENTED .  ALL  SYSTEM  QUERIES  AND  RESULTS  ARE 
INDENTED  5  SPACES  FOR  READABILITY . 

IF  YOU  WISH  TO  ENTER  AN  INSTRUCTION , 

THE  FOLLOWING  FORMAT  MUST  BE  USED . 

' ( FUNCTION  USER-EXPRESSION ) ' 

DO  YOU  WISH  TERMINAL  INPUT? 


YES 


CONTINUE 
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(+123) 

6 

CONTINUE 
(  v  1  1  0 ) 

1 

CONTINUE 
(a  l  1  0) 

0 

CONTINUE 
( AND  NIL  NIL  T) 
NIL 

CONTINUE 
( OR  7  7  NIL) 

7 

CONTINUE 

(OR) 

NIL 

CONTINUE 

(AND) 

7 

CONTINUE 
(CSETQ  A  B) 

CONTINUE 
( CSETQ  B  (N  N)) 


CONTINUE 
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(DUMP  A  P ) 

DUMP  FOLLOWS . 

A:  :  B 

B  :  :  ( 77  7/ ) 

CONTINUE 

(READ) 

INPUT  REQUEST . 

(DUMMY  READ) 

(DUMMY  READ) 

CONTINUE 

(DEFINE  (FAC  (LA'IBDA  (N)  (COND  ((=  77  0)  1) 

(T  (x  77  (Fi4C  (-  N  1)))))))) 

CONTINUE 
(DUMP  FAC) 

DUMP  FOLLOWS . 

7MC:  (N)  (COND  ((=  7/  0)  1)  ( T  (x  77  (FAC  (  - 

77  1)))))) 


CONTINUE 
(FAC  3 ) 

6 

CONTINUE 


STOP 


. 
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LISP  D+LISPLTEST 

( DEFINE 

( FAC  ( LAMBDA  ( N )  ( PROG  (Y)  ( SETQ  Y  1)  TAG  ( CONI)  ((  =  0)  ( 

RETURN  Y )  ) )  (SETS  Y  (x  //  Y))  (-  N  1))  (CO  TA 

0)))) 

(FAC  1  (LAMBDA  (N)  (COND  ((=  N  0)  1)  ( T  (x  N  (FA  Cl  (-  N  1)) 
))))) 

(LAST  (LAMBDA  (L)  (COND  ((NULL  L)  NIL)  ((NULL  (TL  L ) )  (ED 
L) )  (T  (LAST  (TL  L ) ) ) ) ) ) 

(START  (LAMBDA  ()  (PROG  (Y  X)  (SETQ  Y  (READ))  (SETQ  X  (LAS 
T  Y) )  (RETURN  X))))) 

FULL  DESCRIPTION? 


NO 


DO  YOU  WISH  TERMINAL  INPUT? 


YES 


CONTINUE 

(DUMP  START  LAST) 


DUMP  FOLLOWS. 

START:  : ( LAMBDA  ()  (PROG  (Y  X)  (SETQ  Y  (READ))  (SETQ 

X  (LAST  Y))  (RETURN  X))) 

LAST:  :( LAMBDA  (L)  (COND  ((NULL  L)  NIL)  ((NULL  (TL  L 

))  (HD  L))  (T  (LAST  (TL  D)  )  )  ) 


CONTINUE 


(START  (READ)) 


INPUT  REQUEST. 
(FIRST  SECOND  THIRD) 


THIRD 

CONTINUE 

(CSETQ  A  (A  B  C  D)) 
CONTINUE 


( CSETQ  B  B) 


-79- 


CONTINUE 
( MEMBER  B  A) 

T 

CONTINUE 
( CSETQ  A  7) 

CONTINUE 
( CSETQ  B  8) 

CONTINUE 
( CSETQ  C  9) 

CONTINUE 

( SELECT  8  (B  uu uRIGHTta)  uuuMI SSEDcj) 
RIGHT 
CONTINUE 

( SELECT  8  {A  ojwuWFONGu)  oj ojojBIGHToj) 
RIGHT 
CONTINUE 
( LIST  ABC ) 

(  7  8  9  ) 

CONTINUE 

STOP 


APPENDIX  B 


LISP/APL  LISTINGS 

This  Appendix  contains  all  functions  necessary  to 
support  the  LISP/APL  system.  They  are  listed  in  alpha¬ 
betical  order  so  that  cross-reference  between  functions  is 
made  easier.  Also  included  are  the  global  variables,  both 
vectors  and  matrices,  which  are  used  in  the  system. 


V/GT[n]V 

V  F<-L  AFT  V\T\S 

[1]  F«-(~1000  +  10±"l+, 0123456789  *  \4+T+L)+(  4  +  T+S  + 

"1  +  1  + (  A/(  "l  +  iS^ptOcM  t  Vt  1  *  »  )  o  .  =  £)/  xpL  1  +  '  , 

Vt  '  +1001  +  ' 

V 


v/ioFimv 

V  F+B  AOU  V\I\T 

[1]  F+-  '  +  *  ,(/+F),((  ’0123456789'  )[tl+(4pl0)Tl000  +  p27]),(  T+- 

(I+V\  •  4-  *  HlO  %B 

V 


7  ATOM  [[]]  7 

V  f+atom  X 

[1]  F+(0*p  tX)A(NULL  X)V~'(»= 1+y 

V 


VCONDlUlV 

V  F+-S  CONP  X  \  P  \  T 

[1]  TRC+- 1  CONDITIONAL  »  ,TRC,0/P+X 

[2]  ->5 *\NULL  X+Tl  X 

[3]  ->2  xX  NULL  S  EV  HD  T+HD  X 

[4]  +0,p  F+HD  TL  T ,  0  /  TRC+-1  2\TRC 

[5]  TRC<-12iTRC  yF+\  0 

V 
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VCONS [DlV 

V  F+X  CONS  Y ; T 

[1]  -+((ATOM  Y)aT+-~NULL  Y)/ 3 

[2]  -0,p F«-»(  '  (27  '  '  ,li~liY ), » ) ' 

[3]  *  SECOND  ELEMENT  MUST  BE  A  LIST  :'tY ,[]+'' 

[4]  F+-TRACE  ' CONSTRUCT  ' 

V 


VCTJCD3V 

V  F+CTI  X  \I  \J 

[  1]  ->3x  xNl  X 

[2]  ->0  %F+TRACE  1 NUM  CONVERT  »  ,0/D*-'  ARGUMENT  MUST  B 

E  A  NUMBER.  :  '  • 

[3]  F«-(  1  ■l)[l+,”,=ltX]x(^10*e7x(e/4-  l+(4>j)t0)*pl)x 

101  l+»  0123456789  *  i  (J4-I*.'  )/I«-(+./Ie  »  + 

V 


VDFFCC] ] V 

V  F+-DEF  X;T 

[1]  -*0x  iO=pZ,F-*-iO 

[2]  *[ (£F=X)/ipJ>'  • 

[3]  +((PCT  X)  DEFINE'  EQ  HD  X) /  6  7 

[4]  ->0 *\NULL  X+TL  X 

[5]  +4,pF«-F  AON  (HD  T),'*',HD  TL  T+TL  X 

[6]  +0 , pF+TRACE  'DEFINE  '  ,0/D*-'  MISMATCHED  PAR 

ENTHESES  :  '  ,X,0»  * 

[7]  F+-TRACE  'DEFINE  '  ,0/0«-'  HEAD  OF  INPUT  PARA 

METER  MUST  BE  ''DEFINE''  :',HD 

V 


VDMP CD1V 

V  F^S  DMP  X\I  \J 

[1]  F«-0/O'  DUMP  FOLLOWS 

[2]  -*-0 x\NULL  X+-TL  X 

[3]  ->5xi  •  +  »  EQ  J+S  AGT  I+HD  X 

[4]  -^.pn*-'  'fly':  l'fj 

[5]  ->2  [TRACE  ' DUMP  '  .O/CR'  UNDEFINED  VARIABL 

E  :'9I.U+" 

V 


VFQ[[]]V 
V  F+-X  EQ  Y 

F«-((p,J)  =  p,Y)AA/;f  =  (p,*)  +  y 


Cl] 


v 


- 
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vmo]v 

V  F+S  F,V  X;T;T1;T2 

[1]  ->0x  i  ( /7 1  X)  vO  =  p  tF+-X 

[2]  ->(  (  v/T2+VZ£=l*T)  .  (  A/£L  =  7t//Z>  T)  ,K£YA.=7iT+HD  X)/V1 

C3]  ->(  CF2aa/ 'U(i)'  =  2+*)  %T2+~AT0M  X)  /  60  7 

[4]  +6xl~*  +  '  £$  F«-STC  ytC?  T 

[5]  ->0  .F+TRACE  *  EVALUATE  ’,0/0’  LAMBDA  LABEL  BI 

NDING  NOT  FOUND  :',TtP+" 

[6]  ->i  ,  px+'  (  '  ,F.  '  ’.(l+Zi'C  *  )+X,0/r/?^»  :  '  ,  (5+7)  .TFC 

[7]  ->((•  +  •  EQ  F+S  ACT  X)  ,1)  /  32  0 

[8]  ->0,pF>-(£  FK  FF  T)  F0FF  S  EV  HD  TL  T+TL  X 

[9]  ->l,p X+S  COND  X 

[10]  ->0 ,  pF+HD  S  EV  HD  TL  X 

[11]  ->0,p F+TL  S  EV  HD  TL  X 

[12]  -►O.p F+S  LAMBDA  X,  0/TRC+(  (  '  :  1  *1 +TRC)  /  '  :  *  )  ,  TRC 

[13]  X+TL  X,T+ lO 

[14]  ->14  x\~NULL  X+TL  Xt  0/T+T,  CTI  S  EV  HD  X 

[15]  +T2/V2 

[16]  >0,p F+ITC+/T 

[17]  ->0,p  F+ITC-/T 

[18]  ->0,p  F+ITCx/T 

[19]  ->0,p  F+ITCi/T 

[20]  ->0,p F+ITC*/T 

[21]  ->0,pF«-(rP  •  T'  )  t(~T+=/T) /'  NIL' 

[22]  -^O.pF^CTp  'T'  ) ,(~T+*/T) /'NIL' 

[23]  ->0  ,pF^(Tp  'T'  )  ,  (  ~T+<  /T)  /  '  NIL' 

[24]  ->0  ,pF*-(Tp  'T'  )  t(~T+<>/T)  /'NIL' 

[25]  ->0  ,pF*-(Tp  'T'  )  f  (~T+Z/T) /'  NIL' 

[  26]  ->0  ,p  F+(Tp'T'  )  ,  (~T«->/T) /'  NIL' 

[27]  +0,pF+ITC  2iv/(  32p2  )  TT 

[28]  ->0,pF«-ITF  2lA/(32p2)TT 

[29]  ->0  ,  pF-*-ITC  2i*/(32p2)T  T 

[30]  +0  tpF+ITCL  ( It?)  *2*1  +  7 

[31]  -*-0  ,pF+ITC(  1+T)*2*1+T 

[32]  +O.F+TRACE  'EVALUATE  ’  .0/r>'  VARIABLE  B INDIN 

G  NOT  FOUND  :  *  ’ 

[33]  ->0.  (FLG+1)  ,pF>*5  AON(HD  T)t'  +  ',S  EV  HD  TL  T+TL  X 

[34]  +0,pF«-S  PROG  X 

[35]  ->Otp F+HD  TL  X.0/FLG+-3 

[36]  ->((»  +  '  EQ  F+S  AGT  HD  TL  X)tl)/  32  0  ,  0 /FLG+- 
2 

[37]  »0,p F+HD  TL  X 

[38]  ->0,[>*  '  ,0/F+RDR 

[39]  -*>0  .F+O/Po'  '  tS  EV  HD  TL  X,U+" 

[40]  ->0,p  F+(Tp'T'  )  ,(~T+NULL  S  EV  HD  TL  X)/'NIL ' 

[41]  ->0  ,F*-(S,STC)  DMP  X 

[42]  ->0 ,  (FL6+1 )  ,pF«-S  AON(S  EV  HD  T)t'  +  'tS  EV  HD  TL  T 

[43]  ->0  ,  pF«-(  Tp  '  T'  )  ,  ( ~T-*-Nl  S  EV  HD  TL  X)/'NIL' 

[44]  ->0xi NULL  F+X+TL  I,7> iO 

[45]  ->4  5  x  i  ~//{/LL  X+-TL  Xt0/T<-T,'  '  ,S  EV  HD  X 

[46]  ->0  ,pF+’  (  *  ,  (  ~l+(7=»  ')lO)+2V)' 
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[47] 

+0.PF+S  EV  S  EV  HD  TL  X 

[48] 

F-*-  •  T ' 

[49] 

+0 x\NULL  X+TL  X 

[50] 

-*■4  9x  \  ~NULL  S  EV  HD  X 

[51] 

-►O.p F+'NIL' 

[52] 

F+'NIL 1 

[53] 

-►Oxi NULL  X+TL  X 

[54] 

-^5  3x1  HULL  S  EV  HD  X 

[55] 

->0  t  p  F+- '  T  * 

[56] 

+0 ,p F+ITC\ /T 

[57] 

+  0  ,pF*-ITCl/T 

[58] 

+  0,p F+ITC\  /T 

[59] 

+  0  tpF+ITClCTI  S  EV  HD  TL  X 

[60] 

-►Ox  iZ[l]=Y[p7]  ,  0/F«-“l4-l+J,  0/X+2\X 

[61] 

+OtF+TRACE  ’  LITERAL  *  ,0/[>' 

AL  REPRESENTATION  : »  tXt O/Ck* ' 

INCORRECT  LITER 

[62] 

-+S6*\AT0M  X<-(~l+S  EV  HD  TL  X,0/T«-S 
,0/F+'NIL') +)' 

EV  HD  Xt0 /X+TL  X 

[63] 

-►(  {NULL  X+TL  X)t(T  EQ  HD  X)  ,1)  /  0 

64  63 

[64] 

-►0  ,  p  F«-  ’  T% 

[65] 

-*’0%pF+(T/'T'  )  A~?+(S  EV  HD  TL  X)  EQ  S  EV  HD  TL  X+TL 
X)/'NIL' 

[66] 

■* 0  ,  F«-  TRA  CE  •  MEMBER  *  ,  0  /[> » 

OF  MEMBER  MUST  BE  A  LIST  :',X,L}+'' 

SECOND  ELEMENT 

[67] 

■>l,p X+S  SELECT  X 

[68] 

+0  tpF+(Tp' T' ) >(~T+ATOM  S  EV  HD  TL 

X)  /  'NIL  * 

[69] 

->0  ,  pF+ITCl  L  |  CTI  S  EV  HD  TL  X 

V 


VFIXl []]7 

V  F+FIX  L\B\C\D 

[1]  F«-(~(£aB<-“1<H=  ’  (  '  )v(^l4>L=»  )  *  )a£?«-£=*  »)/Z>(~S«-Ba 

“l4>F-»-^=  *  '  )  f  L 

V 


v#z?[C]v 

V  F+HD  X 

[l]  F+lMeMd  J)+/Y 

V 


VTTCZ D]V 
V  F+ITC  B\D\X\S 

[  1]  F«-»  012345678  9  '[  ,  1+ (  13p  10  )  TZ?H 

0  .  5  +  B  x  1 0  */?«-l  2  - L 1 0® (  0=5  )+B+-Bx~  1  *S+B  <  0  ] 

[2]  F+(Sp  '“»).(  (“l+Fi  ’  .  '  )T(p  ,F)  +  l-(<t>F€  »  0.  '  )  iO  )+F«-(  ( 
“l[P-F=0)tF,  *0'  ),  '  .  »  .((Or-ZMp’O*  )  ,  (D+13-B)+F 


V 
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VJAAZUI? 

V  F+JAA  L-,X;T 

[1]  +(  0  2  3  4  +F+0  )  [  (  1++  /  •  (  ,=2+L)  +  2xA/,(<daj,=3+L] 

[2]  ->-0  ,  F-«-”l  +  (X,pL)[l+(  X-*-L  \  '  '  )>pL] 

[3]  ->0,F«-(T/ipI)[l  +  (U/ipX)-2xi  +  /*«-(L€»(  )  »  )/T+L='  )  ’  )il3 

[4]  F*-4+CUL[4]  =  3+L)il 

V 


m 

[2] 

[33 

[4] 

[5] 


V LAMBDA [ D3  V 

7  F+S  LAMBDA  X \T \P ;B \V 

->5  x  x  ( BULL  V)*NULL  HD  P+TL  X ,  0  /B+-HD  TL  Tt0/V+HD  T+-TL 
HD  X ,  0/TRC+-  '  LAMBDA  '  ,  TRC 
-+•(  ££  =  ( NULL  V)+NULL  P)  /  5  4 

-*•( ill -{HULL  V+TL  V)+NULL  P+TL  P,0pS+S  AON(HD  V)  ,  ’  +  ' 
,S  EV  HD  P)/  3  4  5 


->0  ,F+TRACE  0/[>»  INCORRECT  MATCHING  OF  PARAMETE 

RS  IN  :  '  ,*,□«-*  • 

TRC+12+TRC, Q/F+S  EV  B 


V 


VLISPl □] V 

7  LISP  X;I \TER\S\TRC\STC\FLG 

[1]  -+LPSxx~'Y'=l*\Fi,U+'  »  ,0/[>»  FULL  DESCRIPTION?' ,U+" 

[23  ' 

WHEN  "CONTINUE"  IS  DISPLAYED  A  CONTROL 
INSTRUCTION ,  0/?  "STOP"  INSTRUCTION  MAY  BE 
ENTERED , ‘ 

[33  • 

4LI  FSFF  REPLIES ,  INCLUDING  CONTROL  INSTRUCTIO 

NS, 

ARE  STARTED  AT  THE  "LEFT  MARGIN",  I.E.,  NOT 
INDENTED .  SYSTEM  QUERIES  AND  RESULTS  ARE 

INDENTED  5  SPACES  FOR  READABILITY . ' 

[43 

IF  YOF  J/ISfl  TO  ENTER  AN  INSTRUCTION , 

THE  FOLLOWING  FORMAT  MUST  BE  USED,' 

[53  • 

» ' ( FUNCTION  USER -EXPRESS ION) ' ' ' 

[63  LP 5 : * 

If?  YOF  WISH  TERMINAL  INPUT? 

i 

[73  TER+'Y' 

[83  5«-'  +  jr,-H0017’fF  +  100  3NIL  +  NIL  +  10  03N I L  ' 

[93  TRC-*-  *  LISP  ' 

[  1 0  3  -+LP1 2x  t  TER 

[113  +LP1 3 x \PCT  INPUT+FIX  INPUT 


' 
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[12]  LP12iSTC+DEF  FIX  X 

[13]  LP 6: • 

CONTINUE 

t 

[14]  ->Oxi  'STOP'  EQ  I+FIXfl 

[15]  ->LPllx  xPCT  X+{Ie  •  (  )  «  )/J 

[16]  ->LP 6  x  \  0  =  p  J 

[17]  +{DCCA.=7iHD  I ) /LP 20 ,LP21 ,  LP1 4 

[18]  ->LP6  ,  p  ( '  ',S  ffV  I)(n+H 

[19]  LPlH:+LP6,pSTC+STC  AON{HD  I),'+'tHD  TL  I+HD  TL  I 

[20]  LP2  0 :  ->LP6 ,  pS+-S  AON{S  EV  HD  I),'i',HD  TL  I+TL  I 

[21]  LP21 :  ->LP6 ,  pS+S  AON  {HD  I) %HD  TL  I+TL  I 

[22]  LP  1 1  : ->LP6  ,  pH*- '  MISMATCHED  PARENTHESES  IN  CONTROL 

INSTRUCTION 

[23]  LP1  3  : ->0  ,  Opfl*-’  MISMATCHEC  PARENTHESIS  IN  INPUT  EX 

PRESSION  INPUT,  [>” 

V 


V  NULL [ □] V 

V  F+NULL  X 

[1]  F*-(  (3  =  p,J)aa/'LTL'  =3+X)v(2=p  ,X)aa/'  (  )  '=2  iX 

V 


vp 1[G]7 

V  F«-P1  X 

[  1]  F**-(  A/Je  *  0 1 2  3  4  5  6  7  8  9  0  +  ~ .  '  )  a(  0  <p  ,  X )  a  (  1  ;>  +  /X  =  *  .  ’  )  av/P€  »  0 

123456789’ 

V 


VPCT[,H]7 

V  F+PCT  T 

[1]  *>0  x  x  (  (  F-*-0  )  -  p  ,T)^0-  +  /Te  '  (  )  ' 

[2]  F«-( (  +  /»(' =T)*+/' ) ' =P) v~a / ' ( ) ’ =  ?[  l.pT] 

V 


7PPtf£[[]] v 

V  F+S  PROG  XiLBLiB ;V;T 

[1]  X+TL  T,LBL+0/V+ND  T+-TL  X ,  0  /  TRC+-' PROG  EXPRES .  '  ,TRC 

[2]  ->4  NULL  V 

[3]  ->3  x  x  ~NULL  V+TL  V,0/S+S  AON  {HD  V)  \NIL' 
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[4]  LBL+TAG  X 

[5]  -+(  (0=pT)  ,FLG=  0  12  3  ,0 /X+-TL  X)/  9  5  6  9 
7  ,0/F+S  EV  T+HD  X, \FLG+0 

[6]  +5,p OF 

[7]  ^5xr'  +  '  EQ  X+-LBL  AGT  F 

[8]  F+TRACE  0  /O'  UNDEFINED  LABEL  ;  '  ,F,0" 

[9]  TRC+12  +  TRC,  xFLG+O 
V 


vi?mniv 

V  F+RDR 


Cl] 

->(  TER  ,  NULL  INPUT)/  3 

5 

C  2  ] 

+0, p( INPUT+TL  INPUT) 

tF+-HD  INPUT 

C  3  ] 

->((PCF  F+-FIXU1 ) ,  1  )  /  4 

, [O  *  * 

0  ,00/0' 

INPUT  REQUEST . ' 

C  4  ] 

■>0 , F+-TRACE  'READER 

NT  INCORRECT  :’,F,0 

’  ,0/0* 
i  i 

PARENTHESIS  COU 

C  5  ] 

F+TRACE  ' READER 

.  '  ,0’  ’ 

•  ,0/0' 

INPUT  VECTOR  EMPTY 

V 


V  SELECT CD]V 

V  F«-S  SELECT  X\T\C\U 

Cl]  OFF  X,0pT+-S  EV  HD  X+TL  U+X  ,0 /TRC+'  SELECT 
TRC 

[2]  -*(  ( NULL  X)tT  EQ  S  EV  HD  C+HD  X)  /  6  5 

[3]  +2*\~ATOM  C+-HD  X+TL  X 

[4]  -*-0  ,  pF+C,  QpTRC+12+TRC 

[5]  +0,p  F+HD  TL  Ct  0  /  TRC+-12  iTRC 

[6]  F+TRACE  'SELECT  ',0/0'  SELECT  MUST  HAVE  A 

DEFAULT  VALUE  :',J/,0" 

V 


V2MGCD3V 

V  F+TAG  X;T 

[1]  ->-0x  i NULL  X,F+\0 

C  2  ]  -+4x  x~ATOM  T+-HD  X 

C  3]  F«-F  AON  Tt'\'tTL  X 
C  4  ]  F«-F  ,  TAG  TL  X 

V 


VTLCn]V 

V  F+-TL  X;I;T 

ri]  -►O  x  i  0  -I-*-J  AA  XtF*-\ 0 

C  2  ]  -*0x  i~a/(F«-'  (  '  ,  (1+1  )iX)e  '  (  )  ' 

C  3  ]  -+0  ,pF+(T/' NIL'  )  ,  (~02;>p  ,F)/F 

V 


■ 


! 
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VTRACEimv 
V  F+TRACE  A ; T 

[1]  ’  TRACE-BACK  FOLLOWS  .  '  ,  F+-  \  0 , 0  /□-«- »  ' 

[2]  ((7,5)p’  '  )  t((T+-(0*pA)+(pTRC)ll2)  ,12)pAtTRC 

[3] 


«  THE  FOLLOWING  VARIABLES  ARE  USED  IN  LISP/APL. 


VI 


13 

12 

43  8 

9 

10 

35 

11 

38 

40 

33 

36 

34 

37 

42 

41 

3  9 

44 

47 

59 

40 

48 

52 

62 

65 

67 

68 

69 

V2 

16  17  18  19  20  21  22  2  3  24  25  26  27 

28  29  30  31  56  57  58 


CR 

«  CR  IS  A  CARRIAGE  RETURN. 


DCC 

CSET 

CSETQ 

DEFINE 


II 

1  2 

ILL 

0  12 


KEY 

NUM 

CONS 

COND 

I1D 

GO 

TL 

READ 

NULL 

SETQ 

RETURN 

PROG 

QUOTE 
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SET 

DUMP 

WRITE 

LIST 

FVAL 

INT 

NOT 

AND 

OR 

MEMBER 

EQUAL 

SELECT 

ATOM 


LL 

LAMBDA 


VEC 

+  -x**  =  *<<;;s>vAV«-rL  | 


APPENDIX  C 


A  DESCRIPTION  OF  THE  LISP/APL  FUNCTION  AON 

A  listing  of  the  function  AON  is  presented  in 
figure  3  for  reference  during  the  following  explanation. 

V  F+-B  AON  V;I;T 

[  1  ]  F-*-,1  t  1  ,  ( IW\  , ,((' 0123456789*  )[,l+(4pl0)Tl000  +  Pr])  , 

k  3 

,( T<-(I<-V\  '  4  ’  )4F).,S 

V  1  1 — 

2  1 

Figure  3 

AON:  APL  function  used  in  LISP/APL 
stacking  operation 

AON  requires  two  parameters,  V  and  B,  both  character 
vectors,  and  returns  an  explicit  result  F,  also  a  char¬ 
acter  vector.  An  analysis  of  AON  is  the  catenation  of 
the  new  stack  entry  V  onto  the  current  stack  B,  with  the 
result  F  being  the  new  stack.  A  call  to  this  routine 
would  be  of  the  form 

NEW-STACK  «-  NEW-ENTRY  AON  OLD-STACK  . 

The  input  vector  V  is  of  the  form 

name , 4 , value 

where  "  name  '*  is  the  variable  name  to  be  placed  on  the 
stack,  "  value  "  is  the  value  to  be  attached  to  the  name 
and  "  4  "  is  a  delimiting  symbol.  The  input  vector  B  is 
a  character  vector  to  which  the  new  binding  is  to  be  cat¬ 
enated.  This  vector  may  be  a  legitimate  stack,  i.e.,  one 
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in  which  other  bindings  are  present,  or  the  null  vector 
i0.  AON  creates  a  new  stack  entry  which  is  catenated  on 
the  front  of  the  vector  B,  with  F  denoting  the  revised 
stack . 

The  building  process  may  be  broken  into  four  sub¬ 
sections,  (see  function  display).  The  following  example 
will  be  helpful  during  the  discussion  of  the  building 
procedure . 

S  =  miOOlTtNILk  1003NIL, 

NEW- ENTRY  =  N, 

Binding  value  for  NEW-ENTRY  =  (ABC). 

The  new  stack  will  take  the  form 


INI 1007 (A  B  Omi001T+NIL+1003NIL 


W 


ABC 


D 


where  A  represents  the  new  stack  entry,  B  the  length  of 
the  new  entries  binding,  C  the  new  binding  and  D  the  old 
stack.  Therefore,  whenever  a  new  entry  is  to  be  added 
to  the  stack,  the  new  stack  is  created  by  catenating  to¬ 
gether  the  four  parts  A,  B,  C  and  D.  In  this  example  the 
call  to  AON  would  be  of  the  form 

S  Ni(A  B  C)  AON  S. 

Section  one  of  the  display  consists  solely  of  the 
old  stack.  The  second  section  delimits  the  new  binding 
value  so  that  it  may  be  placed  on  the  stack.  The  opera¬ 
tion  I  Vi'l’  gives  the  index  of  4-  in  V  and  assigns  this 
quantity  to  I.  The  first  I  elements  of  V  are  then  "  drop- 


' 
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ped  M.  The  value  of  this  section  which  is  the  binding 
value  is  assigned  to  the  variable  T  and  is  catenated  to 
B.  The  third  section  delivers  the  character  length  of 
T,  increments  this  value  by  1000,  a  place  holding  value, 
and  converts  this  integer  to  a  4-element  vector.  This 
vector  is  then  catenated  to  the  front  of  the  revised 
stack.  The  final  section  takes  the  first  I  elements  of 
V  (the  new  entry  name  and  the  delimiter  4)  and  attaches 
the  prefix  symbol  t  onto  the  name.  These  symbols  are 
required  to  insure  uniqueness  in  the  stack.  This  last  set 
of  elements  is  then  catenated  to  the  front  of  the  char¬ 
acter  vector  to  form  the  new  stack. 

The  description  of  AON  is  given  so  that  the  reader 
may  become  familiar  with  the  way  that  APL  is  used  in 
LISP/APL.  For  the  reader  who  is  interested  in  the  prog¬ 
ramming  language  APL,  consult  Falkoff  and  Iverson  (1968). 


APPENDIX  D 


A  REVISION  OF  LISP/APL  UTILIZING  A 
POINTER-ARRAY  NETWORK 

The  complexity  of  the  LISP/APL  functions,  HD  and 
TL,  which  are  used  repeatedly,  causes  a  time  loss  in  the 
overall  system.  HD  and  TL  are  used  in  all  functions  of 
the  system,  and  so  should  be  made  as  efficient  as  poss¬ 
ible.  It  is  unlikely  that  a  more  efficient  means  may  be 
found  to  acquire  the  head  or  tail  of  a  character  vector 
list,  so  if  a  better  means  is  to  be  found  for  time  saving 
it  must  be  in  the  area  of  list  representation.  In  this 
manner  a  system  has  been  implemented  which  is  very  similar 
to  LISP/APL  with  the  one  difference  being  the  incorporation 
of  pointer  networks  in  place  of  character  vectors  for  the 
internal  representation  of  lists.  The  only  difference  to 
the  user  is  in  the  method  of  invoking  the  system,  i.e., 
by  the  name  LISP1  rather  than  LISP.  In  all  other  respects 
the  two  systems  are  user  independent,  i.e.,  the  user  can¬ 
not  determine  which  system  is  being  used,  apart  from 
execution  time. 

The  method  of  storing  a  list  is  similar  to  the 
representation  described  in  Chapter  2.  Each  memory  cell 
is  divided  into  two  halves,  the  first  half  containing  the 
address  of  the  head  of  the  list,  and  the  second  half  con- 
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taining  the  address  of  the  tail.  If  the  head  or  tail  of 
a  list  is  an  atom  special  actions  must  be  taken.  If  the 
atom  is  T  or  NIL  the  value  10001  or  10000,  respectively, 
is  placed  in  the  cell;  otherwise  the  value  "  10000+N  " 
is  placed  in  the  cell,  where  N  is  the  address  of  the  next 
available  cell.  This  cell  is  used  to  address  the  atom. 

The  first  half  of  the  cell  is  an  initial  address  into  the 
character  vector  MAT,  while  the  second  half  of  the  cell 
stores  the  length  of  the  atom.  The  atom  is  then  catenated 
onto  the  end  of  MAT.  For  numbers  the  method  is  essen¬ 
tially  the  same.  The  value  "  20000+N  "  is  placed  in  the 
cell,  while  the  number  is  stored  at  location  N.  With 
this  representation  any  pointer  may  be  interrogated  to 
determine  what  that  pointer  refers  to,  i.e.,  if  a  pointer 
P  is  less  than  10000  it  points  at  a  list,  if  P  is  greater 
than  10000  but  less  than  20000  it  references  an  atom, 
while  if  P  is  greater  than  20000  a  number  is  the  result. 

In  this  manner  the  list 

(COND  ((  =  X  0)  (SETQ  Y  1))) 


may  be  stored  in  MEM  according  to  the  rules  stated  above, 
(see  figure  4) . 

In  this  representation  the  three  functions  HD, 

TL  and  CONS  become  trivial.  HD  returns  the  value  which 
is  in  the  first  half  of  the  cell  addressed,  while  TL 
returns  the  value  which  resides  in  the  second  half.  CONS 
defines  a  new  cell  and  places  its  first  and  second  argu- 
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(row  #)  1. 

2. 

3. 

4. 

5. 

6 . 

7. 

8. 

9. 

10. 
11  . 
12. 
13. 
14  . 

15. 

16. 
17. 


MEM 


10017 

2 

3 

10000 

11 

4 

5 

10000 

10010 

6 

10009 

7 

20008 

10000 

1 

0 

0 

1 

1 

4 

10016 

12 

10015 

13 

20014 

10000 

0 

0 

5 

1 

6 

1 

7 

4 

constant  ' 1 ' 
'Y' 

' SETQ ’ 


constant  ' 0 ’ 
1  X ' 

t  _  i 

'COND* 


where  MAT  =  YSETQX=COND 


Figure  4 

Internal  representation  of  the  list 
(COND  ((=  X  0)  (SETQ  Y  1))) 
in  the  pointer  network  MEM 
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ments  in  the  left  and  right  cell  halves,  respectively. 

A  significant  time  saving  will  be  attained  with  this  new 
system . 


With  a  pointer  network  such  as  this  new  functions 
and  operations  are  needed  which  were  not  needed  for  the 
original  Lisp  system.  Such  operations  as  the  formation 
and  generation  of  lists,  along  with  garbage  collection 
of  the  memory  storage  area  MEM  are  required.  The  functions 
FRM,  GEN  and  GARBAGE,  and  their  associated  sub - funct ions , 
respectively,  perform  these  duties. 

The  stack  is  different  for  the  new  system.  S  now 
becomes  a  two-row  matrix;  the  first  row  being  pointers 
(to  MEM)  denoting  the  variable  identifiers,  while  the 
second  row  is  a  series  of  pointers  corresponding  to  the 
values,  or  bindings,  of  the  variables  denoted  in  the  cor¬ 
responding  columns.  For  example,  the  instruction 

(SETQ  Y  1) 


places  the  atom  Y  on  the  stack  with  the  value  1.  This 
is  done  by  placing  the  pointer  to  Y  and  the  pointer  to  1 
into  a  two-element  vector  and  catenating  this  vector  to 
the  front  of  S.  An  example  of  this  stacking  operation  is 
given  in  figure  5. 

As  in  the  case  of  the  original  system  garbage 
collection  of  the  stack  is  done  by  the  APL  system.  The 
remainder  of  this  appendix  deals  with  a  sample  session  of 
the  new  Lisp  system  and  function  listings  of  the  new  Lisp. 


I  •  II 
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MEM 


(row  #)  5. 

6. 

7. 

8. 

9. 

10. 

where  S  e 

and  MAT  E 


YSETQX=COND 


Figure  5 

The  interrelation  between  the  stack 
and  memory  storage 


LISP  iO 

FULL  DESCRIPTION? 


YES 


WHEN  ' CONTINUE '  IS  DISPLAYED  A  CONTROL 
INSTRUCTION ,  OR  ' STOP '  INSTRUCTION  MAY  BE 
ENTERED. 

ALL  USER  REPLIES ,  INCLUDING  CONTROL  INSTRUCTIONS , 
A/?#  STARTED  AT  THE  'LEFT  MARGIN '  ,  I .  F .  ,  NOT 
INDENTED.  ALL  SYSTEM  QUERIES  AND  RESULTS  ARE 
INDENTED  5  SPACE’S  FOP  READABILITY. 

IF  TOP  PIPF  IO  FFIFP  AP  INSTRUCTION , 

IFF  FOLLOWING  FORMAT  MUST  BE  USED. 

'( FUNCTION  USER-EXPRESSION)' 


DO  YOU  WISH  TERMINAL  INPUT? 
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YES 

CONTINUE 
(*  15  3) 

5 

CONTINUE 
(v  1  0) 

1 

CONTINUE 
( AND  T  T  T) 

T 

CONTINUE 
(OR  NIL  NIL ) 

NIL 

CONTINUE 

( CSETQ  A  (1  2  3 ) ) 

CONTINUE 

(CSETQ  B  (4  5  6)) 

CONTINUE 

( RPLACH  A  B)  ft  RPLACH  REPLACES  THE  HEAD 


((4  5  6)  2  3) 


ft  OF  THE  FIRST  ARGUMENT  WITH 
ft  THE  SECOND  ARGUMENT. 


CONTINUE 


(RPLACT  A  B) 


ft  RPLACT  REPLACES  THE  TAIL 
ft  OF  THE  FIRST  ARGUMENT  WITH 
ft  THE  SECOND  ARGUMENT. 


((4  5  6)  4  5  6) 


CONTINUE 
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( DEFINE  ( LOOK  ( LAMBDA  (N  LST)  ( PROG  NIL  LOOP 
( COND  ((=  N  0)  ( RETURN  NIL))) 

(WRITE  (HD  LST)) 

(SETQ  LST  (TL  LST)) 

( SETQ  N  (-  N  1)) 

(GO  LOOP))))) 


CONTINUE 

(CSETQ  A  (A  B  C)) 


CONTINUE 

(LOOK  4  (NCONC  A  A )  )  a  NCONC  TRANSFORMS  THE  LIST  A 

a  INTO  A  CIRCULAR  LIST. 


A 

B 

C 

A 

NIL 

CONTINUE 


STOP 
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VAFND tn]V 

V  F+-AFND  X 1 1 

[1]  ->6x  1  10000<X,F+-\0 

[2]  +Oxiv/^=  0  1 

[3]  BMIX1+ 0 

[  4  ]  MEMl  X  ;  ]+-(  p  ,  AW7  ),p,  J-e-AfE’AfC  X  ;  2  ]  +MEMI  X  ;  1  ]  \MA  T 

[5]  +0,p, NMT+NMT 1 1 

[6]  BM\_  X- 1 0  0 0  0  ]  +-0 

V 


VAGNIUIV 

V  F+AGN  X 

[1]  -»(X  =  10000  10001  )/  3  4 

C  2  ]  ->0  ,  p F+MEMlX ;  2  ]  tMEMl  X+X -  1 0  0  0  0  ;  1  ]  \MA  T 

[3]  -+0,p  F+'NIL' 

[4]  F*-'T' 

V 


VAN2 CD] V 

V  F+S  Ain  B 

[1]  F*-(  (fl[l]-10000)  ,  P[  2  ]  )  ,5 

V 


Vi4PP[D]  V 

V  F+Y  APP  X 

[1]  -*-o x  \  ioooo  =  y+o t-F+x 

[2]  F+-CON1  (  HDM  Y )  ,  (  TLM  Y)  APP  X 

V 


V^SOCDDV 

V  F+-Y  ASO  X 

[1]  -*0x  \10000  -F+-X 

[2]  ->0x  i  Y  EQ 1  HDM  F+-HDM  X 

[ 3]  F+-Y  ASO  TLM  X 

V 


VATMIU1V 
V  F+ATM  X 

[  1  ]  +0xi  ’  T  '  EQ  X,  0/P+-1 

[2]  +4x i OxMEMlMEMZF+FRE ;11 ;1] 

[3]  ->2  .GARBAGE  S 

[4]  FRE+MEMlFREi  1] 

[5]  WMF;]^(p,Wi4n,p,X 

[  6  ]  AM  2* ,  X 


V 
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VATOM cniv 

V  F+ATOM  X 

[1]  F<-(0*p  ,X)*(NULL  J)v~»('=ltX 

V 


VAT 2[  []V 

V  F+S  AT 2  7;T;L 

[  1]  F+F[  2  ;  1 1  (  (  LtA/FMC  7 ;  1  ]  4M42’ )  a  .  =MATl  (\L)° .  +MEMISI  1  ;T]  ;1 
]]  )/T+(MEMlSll  ;]  ;  2  ]  =L«-MFM[  7  ;  2  ]  )/t(pF+F,  (7,0  )  )[ 

2]] 

V 


V5LFCD1V 

V  F+BLD  X;T 

[1]  ->((0=p,X),( NULL  X)t(T aa/'ww1 =2+X) , (FI  n.WMf  *)  / 
11,  (0xF«-i0000  )  ,  7  6  5 

[2]  ->4x  \  0=MEM[_FRE<rMEMlF+FRE  ;1]  ;1] 

[3]  +0,MFM[F  ;]+-(BLF  HE  X),BLD  TL  X 

[4]  +2 .GARBAGE  S 

[5]  -*0  .F^-IOOOO-MIW  X 

[6]  ->0  ,F+2000Q  +  NUM  X 

[7]  -*9x  xXL  3]=Z[pZ] 

[8]  +0.F+TRA  ' LITERAL  ’  .O/Ck'  LITERAL  REPRESENT 

ATION  INCORRECT  j'.X.O/O" 

[9]  F«-(F,  10000  +  F+ATM  l+3+X),S 

[10]  ->0  ,F«-10000  +  F 

[11]  F+OpO'  BUILD  STRUCTURE  IS  EMPTY  VECTOR ' 

V 


VCNDL  []]V 

V  F*-S  CND  X;P;T 

[1]  TRC+-' CONDITIONAL  '.TRC.0/P+-X 

[2]  ->5xt  10  000  =X+TLM  X 

[3]  ->2 x  i10000=jS  F71  RDM  T+HDM  X 

[4]  ->0  ,F*-HDM  TLM  T+0  x  pTRC+1 2  4  TRC 

[5]  TRC+12\TRC. iF«-0 

V 


V  CONI [□  ]  V 
V  F+CON 1  X 
[  1]  ->5 x  i  2  *p  ,  X 

[  2]  ->4  x  i  0  *MEM  [  FRE+-MEM  [  F+FR  F  ;  1  ]  ;1] 

[3]  ->2  .GARBAGE  S 

[4]  ->0  ,,MFM[F;]«-X 

[5]  '  CONS  MUST  HAVE  TWO  ARGUMEMTS ,  J.F.,» 

[6]  X,iF«-0 


V 


!  .  ' 
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VCTI [D]V 

V  F+CTI  X \I \J 

[1]  -»3x!^1  X 

[2]  +0  ,F+TRACE  '  NUM  CONVERT  '  ,0/Ck’  ARGUMENT  MUST  B 

E  A  NUMBER.  :  1  ,*,0*  * 

C3]  F*-  ( 1  "l)[l+,",=ltX]x(ilO*Jx(c/^-"i+(4>e7)lO)^pJ)x 

1  0±"~1  +  '0123456789  '  i  (J<-I*'  .  *  )/!«-( +  /l€  *  +  -»  )iI+,X 

V 


VDfflCD] V 

V  F+-DE1  X;T 

[1]  -►Ox  iO=p X,  OpF«-  2  0  pO 

[2]  XL  (CR=X)/ iptf]*-*  * 

[3]  -►(  ( PCT  X)  t~'DEFINE'  EQ  HD  X)  /  6  7 

[4]  ->0 x\NULL  X+TL  X 

[5]  +4,0pF«-F  AN2  ( FRM  HD  T),FRM  HD  TL  T+-HD  X 

[6]  -K),p F+TRA  ' DEFINE  '  ,0/0'  MISMATCHED  PAREN 

THESES  :f,  *,[>'' 

[7]  F+TRA  ' DEFINE  »  ,0/[>'  HEAD  OF  INPUT  PARAME 

TER  MUST  BE  "DEFINE"  :'tHD  *,□«-" 

V 


VFP1[[]]  V 

V  F*-S  DPI  X;I;J 

[1]  F«-Oxp[>»  DUMP  FOLLOWS.  '  ' 

[2]  -►Ox  ilOOOO  =X+TLM  X 

[3]  ->5 x  i  0 -J+-S  AT 2  ~1 0 0 0 O  +  I+HDM  X 

[4]  ->2,p[>’  '  ,  (AGN  I ) ,  ’  :  0  :  ’  ,  GEN  J 

[5]  +2%TRA  'DUMP  ',0/0*  UNDEFINED  VARIABLE 

:  '  ,  (AGN  I), O'  ’ 

V 


vFccniv 

V  F+X  EQ  Y 

[i]  ^((pj)=pj)AA/jf=(Pj)ty 

v 


VF^iCdl v 
V  F+X  EQ  1  Y 

[1]  -►((A/2oooo<xty),(A/ioooo<^,y),(A/o<zfy),i)/ 

2  3  4  ,F«-  0 

[2]  +0,F+MEMi~20000+Xil1=MEMl  20000+y;l] 

[3]  +0  ,F+(MEMIX  i2]*MEMLX+X-10000  \1~UMAT)  EQ  MEMLY ; 
2 ] \MEMl Y+Y- 1 0 0 0 0 ; 1 ] \MAT 

F+( ( HDM  X)  EQ 1  HDM  Y)*(TLM  X)  EQ 1  TLM  Y 


[4] 


V 


. 

' 
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V£Ti[D]v 

V  F+S  EVl  X\T\T1\T2\T3\Y 
Cl]  +0x\0=F+X 

[2]  -+(  (  (F>20000)  vv/F  =  10000  10001), (  NMaF>  10000)  ,  NM  ,F> 
10000)/  0  73  72  10 

[3]  ^6m  10000<MM  / 

[4]  +16xi  */LL  =  l  \MEMlT\2'\\MEMlT*-~100Q0+HDM  T\l]\MAT 

[5]  ->0  ,F+TRA  'EVALUATE  *,0 /□-*-'  BAD  LAMBDA  EXPRES 

SION  :  '  ,  (  GEN  X)  .O’  » 

C6]  +  (  (v /T2^-VEC-1\T3)  tK!HE* .  =7+T3+MEMlTl  ;2l +MEMIT1+-T- 

1 0  0  0 0  ;  1  ]  ~\MA T)  /V3 
C7]  -+9 x\0*F+STC  AT2  T 1 

[8]  ->0  ,F+TRA  'EVALUATE  '  ,0 /□-*-•  LAMBDA  LABEL  BIND 

ING  NOT  FOUND  :  •  ,  (AGN  T )  , □+- *  * 

[9]  +1,X+C0N1  F , TLM  X+0*pTRC+' : ' , ( 5+AGN  T)  tTRC 

[10]  +0xt0 *F+(S,LBL)  AT2  X-10000 

C 11]  -*-0  tF+TRA  'EVALUATE  '  ,0/0’  VARIABLE  BINDING 

NOT  FOUND  :  '  t  (AGN  X)  ,[>*  ' 

[12]  ->0  ,F+C0N1 .  (5  EVl  RDM  T)  tS  EVl  EDM  TLM  T+TLM  X 

[13]  -+1  ,X+S  CND  X 

[14]  -+0  ,F+HDM  S  EVl  EDM  TLM  X 

[15]  -+0 ,  F-*-TLM  S  EVl  EDM  TLM  X 

[16]  +0,F+S  LAM  X+0xpTRC+((  ':  '*1\TRC)/'  :  '),TRC 

[17]  X+TLM  Z+0xp tT+\0 ,0/NM+l 

[18]  -+18x\l0000 *X+TLM  X,0pT+T,S  EVl  EDM  X 

[  19]  -+T2/F4, 0/T+MEMIT-20000;  1]  ,0/NM*-0 

[2  0]  -+0  .F+NMM+/T 

[21]  -+0  ,F+NMM- /T 

[22]  -*-0  ,F+NMMx  /T 

[23]  +0 ,F+NMM*/T 

[24]  -+0  ,F+NMM* / T 

[25]  ->0  ,010000  +  =  /T 

[26]  -+0  ,F+10000  +  */T 

[27]  -+0  ,F+-10  0  0  0  +  </T 

[28]  +0  .OlOOOO  +  S/T 

[29]  +  0  ,OlOOOO  +  >/T 

[30]  -►o.oioooowr 

[31]  -+0  ,F+NMM  2iv/(32p2)T  T 

[32]  -+0  ,F+NMM  2ia/(  32p2  )tT 

[33]  -*-0,F+NMM  2l^/(32p2)TT 

[34]  +0.F+NMML (1+T)*2*HT 

[35]  -+0  ,F+NMM(  l  +  ?)x2*HT 

[36]  -+0  ,  ( FLG+1 )  ,  , F+S  AN2  ( EDM  T)  ,5  EVl  EDM  TLM  T+TLM  X 

[37]  -+0  ,F+S  PRG  X 

[38]  -+0  ,F+RDM  TLM  X  +  0*FLG+3 

[39]  +  1  %X+RDM  TLM  X+0*FLG+-2 

[40]  +0.F+EDM  TLM  X 

[41]  -+0  .O'  ’  .  0/F+-RDR1 

[42]  -+-0  ,  ( F+-0  )  pO*  * 


'  ,GEN  S  EVl  EDM  TLM  X+0xp 


' 
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[43]  -*-0,5-*-10000  +  10000=5  571  RDM  TLM  X 

[44]  ->0  ,F+(S,STC)  DPI  X 

[45]  -*-0,(555-*-l)  ,5-*-5  AN2(S  EV 1  RDM  T)  ,5  571  RDM  TLM  T+TLM 
X 

[46]  -►0 ,5*«-10  000  +  2  00  0  0<5  571  RDM  TLM  X 

[47]  ->0xxl0000  =F+X+TLM  X 

[48]  -*-0  ,5-*-5  LST  X 

[49]  -*-0,5«-2 00 01, TRA  'EVALUATE  '.O/O*  VALUE  MUST 

BE  A  NUMBER  i'AAGN  5), O'* 

[50]  -►0  ,5-*-5  571  5  571  RDM  TLM  X 

[51]  5-»-10001 

[52]  -»-0x\10000 -X+TLM  X 

[53]  ->-52x  \  10000*5  571  RDM  X 

[54]  +0 ,5-*-10000 

[55]  5 -*-10000 

[56]  .  h-OxxIOOOO -X^-TLM  X 

[57]  -*-56xil0000=5  571  RDM  X 

[58]  -*-0 ,5«-10001 

[59]  -*-0  , F+NMM[  /T 

[60]  +0.F+NMMI/T 

[61]  ->0  tF+NMM\  /T 

[62]  +Q,NM+0*F+FRM  ITCIMEML~20000+S  571  RDM  TLM  X;NM+ 1] 

[63]  -*-6  8x  i  10000^J-h5  571  RDM  TLM  X+OxT+S  571  RDM  X+TLM  T 3 
•*-Z+0x5-«-10  000 

[64]  -*-6  6  x  i  EQ 1  RDM  X 

[65]  -*-((  10000 -X^TLM  7)  ,  1 )  /  0  6  4 

[66]  -*-0 ,5-HOOOl 

[67]  -*-0 , 5-*- 10  0  0  0  +  ( 5  571  RDM  TLM  7)  5<?1  5  571  RDM  TLM  7<- 
TLM  X 

[68]  -*0 ,  F+TRA  'MEMBER  »  ,0 /□-*■'  SECOND  ELEMENT  OF 

MEMBER  MUST  BE  A  LIST  :  •  ,  (  GEN  T3  )  .  □-*-  •  • 

[69]  -*-l,7«+5  SEL  X 

[70]  -*-0  ,5«-10  00  0  +  10  00  0<5  571  RDM  TLM  X 

[71]  ->-0  ,ATtf-*-0x5-*-55M  I  TCI  L  |M5M[  "2  000  0+5  571  RDM  TLM  X\NM+1 

] 

[72]  -*•(  (20000>5)  ,l)/49,  (  OxNM+l ) x5-*-5  571  F+NM+  0 

[73]  -»-(  (2  0000>5«-5  AT  2  5-10000),  1)/  49  0 

[74]  -*-0  %MEMLF+S  571  RDM  7;l]-<-5  571  RDM  TLM  X+-TLM  X 

[75]  -*-0  .MEMZF+S  571  RDM  7;  2  >5  571  RDM  TLM  X+TLM  X 

[76]  -*-0  ,5-*-10  000+(5  571  RDM  TLM  7 )  =5  571  RDM  X+TLM  X 

[77]  5-*-Y-*-5  5  71  RDM  X+TLM  X 

[78]  -*-7  8xx  10000 *TLM  Y+TLM  Y 

[79]  -*-0,M5M[Y;2]-*-5  571  HDM  TLM  X 

[80]  -*-0,5-*- (5  571  RDM  X)  APE  S  571  RDM  TLM  X+TLM  X 

[81]  -*-0,5-*- (5  571  RDM  7)  ASO  S  571  RDM  TLM  X+TLM  X 
V 


■ 


■ 
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vFitfPcmv 
V  F+FIND  X  \  S  \  T 
Cl]  -►Ox  i  0=X,F+\ 0 

[2]  ■>(  (  a/5)  ,  (S«-10  0  00>2W4EW[*;  ]  )  ,  1)/  3  5  4  6  +BMlX]  +  0 

[3]  -►O  AFIND  Till)  tFIND  Tl  2] 

[4]  +0,(AFND  ?[  11-10000)  tFIND  Tl  2] 

[5]  -K),(  FIND  TUD.AFND  Tl  21-10  000 

[6]  ->0  ,(AFND  mi -10000)  ,AFND  7[2]-10000 
7 


FFIXIU17 

V  F+FIX  L  ;B ;C ;D 

111  F+(~(DaB+~1$L=  '  (  '  )  v  (  C-*-l$>L  =  '  ) '  )aD+L='  ')/L+(~B+Ba 

"l  4>S^L=’  ')/L 

V 


7FJ?M[[]]7 

V  F+-FRM  X 

[  1  ]  -+3  x  i  0  *MEMIMEMI  FEE  ;  1  ]  ;  1  ] 

[2]  5 

[3]  DS+FP.E 

[4]  DS+OxF+BLD  X 

V 


VGARBAGEZDlV 
V  F+GARBAGE  SiBM',1 

111  BM+SIZEpl ,F+NMT+0pU+'  GARBAGE  COLLECTION ,U+" 

[2]  S+S9STC>Q'BMZl]+0 

[3]  -►  8  x  \  0 -  I  +-S  [  1 ;  1  ] 

[4]  5^((0xJ^5C2  ;ll+BMHl+0)  ,1)15 

[5]  ■+•7  x  iJ<10000 

[6]  ->-3,4FWZ>  1-10000 

[7]  +3, FIND  I 

[8]  +11* \0=DS 

[9]  BMIDS1+0 

do]  -►g  x  x  o  *.vew[  z?2«-M£W[  22 ;  1  ]  i  2  ] 

[11]  NMT+OpMA T+NM T 

[12]  M£M[Sil]  +  l^S«-£Af/iSTZ£)  ,0 

[13]  MEMlSi 21+0 

[14]  -*0x\0*MEMlMEMZFRE+l+Sil]  ;1] 

[15]  'MEMORY  FULL ' 

[16]  F+*\ 


7 
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VGENiUlV 
V  F+GEN  X\T 


m 

->0x  \  (  0=X  )  »F«-i  0 

[2] 

->(X>  20000  10000)/  7  8 

[3] 

-►(  (  T>  10  000  )  ,  10000  =  ^MF//[X; 

2])/  5  6 

[4] 

-*0  ,  pF«- '  (  '  ,  ( GFtf  MFM[ X  i  1 1  )  ,  * 

* ,1*GEN  T 

[5] 

-►0  ,  pF-«- '  (  '  t  (  GEN  MEMlX;ll)  t' 

.  '  a  gen  t)  ,' )’ 

[6] 

+  0 , pF«- 1 ( » , ( GEN  ME ML  X ; 1 ] ) , » 

)' 

C  7  ] 

-*0,p  F+ITC  MEML  *-20000;!] 

[8] 

F+AGN  X 

V 


vfpcdiv 

V  F+-HD  X 

[1]  F+lHJAA  X)*X 

V 


VHDM COIV 

V  F+-HDM  X 

Cl]  +3* i ( X*0 ) aX<10000+F+0 

[2]  ->0  tF+TRA  'HEAD  '  .OpD*-'  ARGUMENT  OF  HEAD 

MUST  BE  A  LIST  :'AGEN  *),□«-»• 

[3]  F+MEMZXi 1] 

V 


VITC COIV 

V  F+-ITC  B\D\R\S 

[1]  F+- * 0123456789" [, 1 1 ( 1 3p 1 0 ) TB+l 

0.  5  +  Px  10*F«-1 2 - L  10®(  0=B)+B+B*~l*S+B<0l 

[2]  F+-(Sp  '  ~ '  )  , ( ( ~1+F i  '  .  '  )f  (  p  ,  F )  + 1  -  (  4>F€  ’  0  .  '  )i0)+^(  ( 
”irP-Z?  =  0)+F,  *  O'  )  .  1  .  ’  ,  (  (  OT-PJp  ’O’  )  ,  (D+13-R)iF 

V 


vjaaLUIv 

V  F+JAA  L\X;T 

[1]  +  (  0  2  3  4  +  F«-0)[  (  lt+/'  (  '  =21L)+2xa/»  (ww»  =3+L] 

[2]  -*0.F«-~l+(  X  fpL)ll  +  (X+-L\ '  *)>p  Ll 

[3]  +0,F+(T/\pL)Zl*((X/\pX)-2x\+/X+(L€ 'O' )/T+L=' ) • )il] 

[4]  F«-4+( 1+L[4]=3+L) i 1 

V 


VLAM CHlV 

7  F-hF  LAM  X\T\?\B\V 

[1]  -*5x  i  (  10000  =  7)  Al0000=FLW  P+TLM  X,Op 3+HDM  TLM  T,0p7«- 
HDM  T+TLM  HDM  J.Op TRC+' LAMBDA'  tTRC 

[2]  +(II=+/10000=7,P) /  4  5 

[3]  -*(ZZl  =  +  /10000  =  (7+raf  V),P*TLM  F.OpF^S  AN2(HDM  V)  ,S 
EV1~HDM  P) /  345 
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[4]  ->0  ,F+TRA  O/D*-1  III  CORRECT  MATCHING  OF  PARAMETERS 

IN  :  •  ,(GEN  X)  ,[>•  ' 

[5]  TRC+12+TRC  % 0/F+S  EV 1  B 
V 


7  LISPllUl V 

V  LISP 1  X ;I i TER ; TRC \STC ; FLG ; NMiNMT 

[1]  INITIAL 

[2]  S«-  2  0  pO 

[3]  +LP5*  i~'  7»  =  1+E,[>'  *  ,  (NM+O)  /□«-•  FULL  DESCRIPTION 

?'  ,□«-»  ' 

[4] 

J/PFAr  "CONTINUE"  IS  DISPLAYED  A  CONTROL 
INSTRUCTION,  OR  "STOP"  INSTRUCTION  MAY  BE 
ENTERED. ' 

[5] 

ALL  USER  REPLIES ,  INCLUDING  CONTROL  INSTRUCTIO 

NS, 

ARE  STARTED  AT  THE  "LEFT  MARGIN"  ,  I.E.  ,  NOT 
INDENTED.  ALL  SYSTEM  QUERIES  AND  RESULTS  ARE 
INDENTED  5  SPACES  FOR  READABILITY.  » 

C  6  ]  * 

IF  YOU  WISH  TO  ENTER  AN  INSTRUCTION , 

THE  FOLLOWING  FORMAT  MUST  BE  USED 

[7]  ' 

* ' (FUNCTION  USER-EXPRESSION) * ’ * 

[8]  FP5:» 

DO  YOU  WISH  TERMINAL  INPUT? 

[9]  TER-'  I'  =  ltn 

[10]  TRC+'LISP  • 

[11]  -*LP12*\TER 

[12]  +LP13x iPCF  INPUT+FIX  INPUT 

[13]  FP12 iSTC+DEl  FIX  X 

[14]  LP 6 : • 

CONTINUE 

t 

[15]  -+0*\'STOP'  EQ  I+FIXfl 

[16]  +LPllx\PCT  X+-(I €.*()*)/ 1 

[17]  -*-LP6x  |  0  =  pP 

[18]  -+(DCCa.=7  iHD  I)/LP20,FP21,FP14 

[19]  -^LPeTCpn-*-'  '  ,FFA/  5  F71  FFM  !),[>" 

[20]  LPm:+LPS,pSTC+STC  AN2(FRM  HD  I)  ,FRM  HD  TL  I+HD  TL  I 

[21]  LP2  0 :  -+-LP6  ,  pS-*-S  AN2(S  EV  1  FRM  HD  I)  ,FRM  HD  TL  I+TL  I 

[22]  FP21 :+LPG,pS+S  AN2( FRM  HD  I ) , FRM  HD  TL  I+TL  I 

[23]  LP1U+LPS  ,pU+'  MISMATCHED  PARENTHESES  IN  CONTROL 

INSTRUCTION  :',J, O" 

[24]  LP  13:+0,0pi>'  MISMATCHED  PARENTHESIS  IN  INPUT  EX 

PRES  SION  :  ’  ,  INPUT,  O*  ' 


V 


. 

;  . 
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VLSTl G]V 
V  F+S  L5T  X 

[1]  +ox  i  ioooo=F+-jr 

[2]  F+CONUS  EV 1  HDM  X)  ,5  LS?  TLM  X 

7 


V  WfM[  □  ]  V 
7  F+-NMM  X 

Cl]  +  3  x  x  o  FRE+MEMZ  F+-FRE ;  1  ]  ;  1  ] 

[2]  -+1  ^FPy^F  S 

[3]  ME  Ml  “2  0  000+F-**jF  +  2  0  00  0  ;  ]-«-X,  0 

7 


VJV^LLCDDV 
7  F+NULL  X 

Cl]  F«-(  (3=p  ,*) aa/’FIL'=3+*)v(2=P ,*) aa/’ (  )  *=2+X 

7 


7//y^cn]v 

7  F+-NUM  X 

[  1  ]  -*-3  x  i  0  *MEMl  FRE+MEML  F+FRE ;  1  ]  ;  1  ] 

[2]  -►l.GdflBdGE’  S 

[3]  MEMZFil+(C?I  X) ,0 

7 


7F1CD]7 

7  F+Nl  X 

[  1]  F+(A/Xe  ’  012  3456  78  90  +  “.  ’  )  a(  0<p  .AT)  a(  l£+/X=  ’  .  »  )  av/Jc  •  o 

123456789 ’ 

7 


vpcrCG] V 

7  F+PCT  T 

[1]  +0X  I  ( (F«-0)=p  ,!Z’)vO  =  +  /2,€  ’  (  )  ’ 

[2]  F«-((  +  /’  (  '  =2,)*+/f  ) '=7)v~ A/’(  )  '  =T[l,p7?] 

7 


VPi?G[[]]v 

7  F+5  PF6  *;LFL;P;7;T 

Cl]  X-*-TLM  T,0pLBL+  2  0  pO  x7+FZ?M  T+TLM  Xt0 pTRC+'PROG  EXP 
RES. ' ,TRC 

[2]  -*-4  x\10000  =  7 

[3]  ->3xx  10000 *V+TLM  7,0 pS«-5  AN2(HDM  7),  10000 

[4]  LBL+-LBL  TGI  X 

[5]  -►(  (  0  =  2*)  tFLG~  0  12  3  ,0 /X+TLM  X)  /  9  5  6  9 
7  ,  OpF«-F  £71  T+PPAf  X+FLG+  0 


■ 
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[6] 

->5  ,  ,  S+F 

[7] 

->5xx0 *X+LBL  AT2  F- 10000 

[8] 

F+TRA  0/0'  UNDEFINED  LABEL 

;  '  ,  (  GEN  F),0’  ’ 

[9] 

TRC+ 12 \TRC >  \FLG+ 0 

V 

v/?z?i?cn]v 

V  F+RDR 

[1] 

•>(  TER  , NULL  INPUT)/  3  5 

C2] 

-+0  ,p(INPUT<-TL  INPUT)  tF+-ED  INPUT 

[3] 

->(  ( PCT  F+FIXft ] ) .  1  )  /  4  0  ,00/0' 
.O'  ' 

INPUT  REQUEST. ' 

[4] 

->0  .F+TRACE  '  READER  ',0/0' 

NT  INCORRECT  r'.F.O" 

PARENTEESIS  COU 

[5] 

F+TRACE  ' READER  ',0/0' 

INPUT  VECTOR  EMPTY 

.  '  ,0 '  ' 


V 


vsExcmv 

V  F+S  SEL  X\T \C\U 

[1]  X+-TLM  X+OxT+S  EV1  EDM  X+TLM  U+X+  0*p  TRC+-'  SELECT 

'  %TRC 

[2]  ->((  10000  =  X),T  EQ1  S  EV 1  EDM  C+-EDM  X)  /  6  5 

[3]  ->2 xx  10000 > C+HDM  X+-TLM  X 

[4]  ->0  ,F+C+0xpTRC+12+TRC 

[5]  +0tF+EDM  TLM  C+Q* pTRC+12 \TRC 

[6]  F+TRA  ,  0/0*  SELECT  MUST  EAVE  A  DEFAULT  VALUE 

,  ( GEN  U)  ,Of  ’ 

V 


VTG 1CD]V 

V  F+S  TGI  X\T\J 

[1]  >0x  x  10000=X+x/pF«-  2  0  pO 

[2]  F+S  TGI  J+TLM  X 

[3]  ->0 x  x  1 0 0 0 0  >T-*~EDM  X 

[4]  F+F,S  AN 2  TtJ 

V 


VTLCGJV 

V  F+TL  X\I\T 

[1]  ->0  x  x  0 -I^-J AA  XtF+-\ 0 

[2]  >0xx~A/(F>»( • ,(I+l)tX)e’(  )' 

[3]  ->0  ,  p F+(T/'NIL'  )  ,  (~T+  2Zp  ,F)/F 

V 
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VTLM [□ D V 

V  F+TLM  X 

[1]  -*-3><  i  )aX<  100  00  +  F-<-0 

[2]  -+OtF+TRA  'TAIL  '  ,0pn«-'  ARGUMENT  OF  TAIL 

MUST  BE  A  LIST  :',(GEN  /O.O” 

[3]  F<-MEMLX;  2] 

V 


VFF/UOJV 

V  F+-TRA  A  \T 

[1]  ’  TRACE-BACK  FOLLOWS.  iF«-0  +  0xp  ,□«-»  * 

[2]  (  (  T .  5  )  p  »  »  ),((T«-(0*p/l)+(p:rFC,m2),12)p4,27FP 

[3]  »  » 

V 


ft  IfliTIdL  IS  i/SFP  TO  SFT  i/P  IFF  MEMORY  STORAGE  AREA. 


V INITIALlU ] V 

V  INITIAL 

[1]  MEM+-  (SIZEt2)p((2*SIZE)p  1  0  )  \  (  1+  \  SIZE  - 1 )  ,  0 

[2]  FRE+ 2 

[3]  MAT+\Q 

V 


a  IFF  FOLLOWING  VARIABLES  ARE  USED  IN  TEE  NEW 
ft  LISP/APL. 


SIZE 

500 


73 

17  46  12  13  14  38  15  41  43  36  39  37 

40  45  44  42  47  50  62  43  51  55 

6  3  67  69  70  71  74  75  76  77  80 

81 


74 

20  21  22  23  24  25  26  27  20  29  30  31 

32  33  35  34  59  60  61 


CR 


ft  QR  IS  A  CARRIAGE  RETURN. 


. 


DCC 

CSET 

CSETQ 

DEFINE 


II 

1  2 

III 

012 


KEE 

NUM 

CONS 

COND 

HD 

GO 

TL 

READ 

NULL 

SETQ 

RETURN 

PROG 

QUOTE 

SET 

DUMP 

WRITE 

LIST 

EVAL 

INT 

NOT 

AND 

OR 

MEMBER 

EQUAL 

SELECT 

ATOM 

i 

• 

R PLACE 
RPLACT 
EQ 

NCONC 

APPEND 

ASSOC 


LL 

LAMBDA 

VEC 

+  -  x  t  *  =  *  <  £  >  v  av-«--*T  L  I 


